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ABSTRACT 


An earth orbital satellite lifetime deck has been developed and pro- 
grammed in Fortran IV language for the IBM 7094. The deck represents the 
development of a sophisticated and accurate lifetime prediction technique, which 
includes the effect of aerodynamic drag and the nonspherical gravitational po- 
tential of the earth. The computer program can be used to predict lifetime based 
on only a gross description of the initial orbit and drag parameters , or based on 
a very exact definition of the initial orbit and detailed description of the drag 
parameters and their variations depending on the amount of information available. 
The primary factor contributing to uncertainty in lifetime predictions using this 
model is the atmospheric density. A very flexible model based on data from 
Discoverer, Gemini, and Saturn flights has been established. The primary 
uncertainty remaining in this model is prediction for future years of solar activ- 
ity behavior and its influence on density as a function of altitude. As additional 
flight data and solar activity observations become available, they may readily 
be incorporated into the model, thus providing a rapidly changing density model 
which insures the best representation possible. Efforts to refine the models as 
presently defined and to perform pertinent studies in the lifetime area are con- 
tinuing. This report represents only the present status of model definitions and 
defines the computer program now in use. 
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TECHNICAL MEMORANDUM X- 53385 


EARTH ORBITAL LIFETIME PREDICTION MODEL AND PROGRAM 

SUMMARY 


An earth orbital satellite lifetime deck has been developed and pro- 
grammed in Fortran IV language for the IBM 7094. The deck represents the 
development of a sophisticated and accurate lifetime prediction technique, which 
includes the effect of aerodynamic drag and the nonspherical gravitational poten- 
tial of the earth. The computer program can be used to predict lifetime based 
on only a gross description of the initial orbit and drag parameters, or based on 
a very exact definition of the initial orbit and detailed description of the drag 
parameters and their variations depending on the amount of information available. 
The primary factor contributing to uncertainty in lifetime predictions using this 
model is the atmospheric density. A very flexible model based on data from 
Discoverer, Gemini, and Saturn flights has been established. The primary 
uncertainty remaining in this model is prediction for future years of solar activ- 
ity behavior and its influence on density as a function of altitude. As additional 
flight data and solar activity observations become available, they may readily 
be incorporated into the model, thus providing a rapidly -changing density model 
which insures the best representation possible. Efforts to refine the models as 
presently defined and to perform pertinent studies in the lifetime area are con- 
tinuing. This report represents only the present status of model definitions and 
defines the computer program in use. 


SECTION I. INTRODUCTION 


An extensive effort has been underway to develop a flexible and accurate 
orbital lifetime prediction model and a density model accurately describing the 
history of decayed satellites and providing the best available prediction for future 
satellites. This has been performed jointly by the authors and the Dynamics and 
Guidance Department of the Lockheed Missiles and Space Company, Huntsville 
Research and Engineering Center. Lockheed's work has been performed under 
Contracts NAS8-11148, NAS8-11121 and Task B of NASA Schedule Order No. 1, 
Contract NAS8-20082. Principal contributors from Lockheed are Mr. T. J. 



Richards and Mr. H. F. Kilgo. This report was prepared jointly by MSFC 
amd LMSC, Section V being prepared by Mr. W. B. Hawkins, of Lockheed. The 
computer program is documented in Reference i. 

The orbital lifetime of a satellite, in the final analysis, depends solely 
upon two things: the initial total energy of the satellite and the time history of 
its rate of energy loss. Initial total energy is determined immediately either by 
position and velocity or by orbit elements. However, the determination of rate 
of energy loss is not immediately evident. Consider the external influences 
which act on a satellite to change its orbit: those produced by atmospheric re- 
sistance, the earth's nonspherical gravitational potential, lunar-solar gravitation, 
solar radiation pressure, and geomagnetic potential. Each of these act to change 
the shape and orientation of the orbital ellipse. Only atmospheric resistance 
causes a net decrease in total energy. Nevertheless, these other forces are 
important in determining orbital lifetime because they influence the parameters 
which define aerodynamic forces. 

The development of sophisticated and accurate lifetime prediction and 
density models has been prompted by the need in the Saturn program for better 
estimates of lifetime and decay characteristics for earth orbital flight. These 
data are essential to realistic mission planning. 

The basic models have been developed and a computer program written in 
Fortran language for the IBM 7094. The program simulates the rates of change 
in the orbit of a satellite and ultimately calculates the total time it remains in 
orbit. As presently coded, it includes the effects of aerodynamic drag and the 
earth's nonspherical gravitational potential. The computer program can be used 
to predict lifetime based on only a gross description of the initial orbit and drag 
parameters, or on a very exact definition of the initial orbit and detailed descrip- 
tion of the drag parameters and their variations, depending upon the amount of 
information available. 

Since the elements in the drag function can be input as constants or 
variables in a number of ways, their accuracy is limited mainly by the amount 
of information available to the user. These elements are atmospheric density, 
drag coefficient, cross-sectional area, and mass of the satellite. 

Of principal significance is the atmospheric density model. It was desired 
to construct a model best predicting density for future years and optimally util- 
izing data obtained from decayed satellites and actual measurements of solar and 
geomagnetic activity. Consequently, any "best" density model must remain in a 
constant state of flux as new data and input become available. 
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The development of this extensive capability for earth orbital lifetime 
predictions is by no means completely refined. The basic model and best known 
inputs to date are formulated for use. A continuing effort is being made to 
further develop and refine the model. The following list singles out some of the 
more significant areas either presently being investigated or planned to be 
investigated. Information concerning these items may be obtained from the 
authors. 

1. The equation used to compute the radius to the satellite as a function 
of a set of "mean" orbital elements was derived using a definition of "mean" 
elements which differs from the definition used in the transformation phase of 
the deck. The deck will be revised to either redefine the function or to redefine 
the elements to establish a consistent set. 

2. The transformation between osculating and "mean" elements required 
before lifetime computations is indeterminant for small eccentricities. This 
transformation is being derived. 

3. Expressions accounting for the effects of solar radiation pressure have 
been derived and are being programmed into the deck. 

4. Expressions for solar and lunar gravity effects are being derived and 
will be incorporated into the deck. 

5. Uncertainties in extrapolating mean solar activity predictions have 
been determined. The uncertainties caused by short period fluctuations in solar 
activity are being established to arrive at an overall uncertainty in predictions 
for short and long lifetimes. 

6. A technique for inclusion of new solar activity data into the density 
model and automatic updating of the solar activity future predictions based on 
past and current behavior will be established. 

7. Updating of the density model incorporating the latest Saturn flight 
data is in progress. This will result in a more accurate model in the higher 
altitude region near 500 km. 


SECTION II. DENSITY MODEL 


The carefully formulated decay equations presented in following sections 
for the lifetime model are of little value for application unless an accurate 
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density model is also used. Any density model which defines density as a function 
of altitude alone may be in error by an order of magnitude in the 200-700 kilo- 
meter altitude range. This section is specifically devoted to discussion of the 
time-variant density model used in the orbital lifetime program since the model 
is of such primary significance. 


A. Defining a Time-Dependent and Position-Dependent Density Model 


For future planning, it is necessary to have the capability of accurately 
determining the instantaneous acceleration due to drag (for propellant seating 
considerations, etc. ) and the amount the orbit decays during a short period of 
time. This presents the requirement for an accurate time-dependent and 
position-dependent model, whereas a less sophisticated model is usually suffi- 
cient for an accurate total lifetime prediction. 

The density of the upper atmosphere ( 120-700 km altitude) has been 
shown to vary with certain indices of solar and geomagnetic activity, with local 
time, with season and latitude, in addition to its primary variation with altitude. 
Many of the relationships used in the following model were developed by H. Small 
in Reference 2. 


To describe the variation in density due to solar and geomagnetic activity 
fluctuations and seasonal effect, Small defines a single parameter, S, and refers 
to it as a "heating parameter" or the "total heating. " The heating parameter S 
is defined as 


S 



( 1 ) 


where 


S — 25 + 0. 8~F jo i + 0. 4( Fjg 7 — -^lo. 7 ) + 10Kp 
g(t) = . 025 cos 


27 r 

t - 38047. o' 

- . 06 cos 

47 r 

I t - 38047. 0 ]“ 

365. 25 J 

1 365. 25 J 





cr( 

e 6 = correction for seasonal effects 
t = time in modified Julian days 
Kp = 3-hour planetary index of geomagnetic activity 
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Fio. 7 = daily values of the 10. 7 cm solar flux 


Flo. 7 = smoothed values of the 10. 7 cm solar flux. 


This is formed by taking the running yearly mean of F I0 . 7, i. e. , 


F lo. 7 ~ 


1 

365 


Z 


i=-182 


F 10. 7 (t + i) . 


The daily values of F 10 7 and Kp, which are available in Reference 3, are 
incorporated into the model for use in post- flight prediction (section II B deals 
with extrapolating these values for future predictions) . 

Small also points out in Reference 2 that the following relationship holds 
(although he apparently did not use it in formulating his model) : 


d(ln p ) 

' ~ P f h- 360 \ 


' h - 360\ 2 ‘ 


5. 6 - cos ip* 

d(lnS) 

3 2 * 5 [ 240 J 

. 5 

240 J 


6. 6 


( 2 ) 


where 

In p = natural log of density 
In S = natural log of S 
h = altitude in km 

ip 1 = geocentric angle between the field point and the center of the 
diurnal bulge, ty' of 75 deg represents a mean diurnal effect. 


By interpreting the above as 


In p - In p 
o 

In S - In S ’ 
o 

it follows directly that 
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• ( 3 ) 


P = 
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3 + 2. 5 
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To apply the above equation, all that remained was the selection of a realistic 

density profile ( density as a function of altitude) to define p^ and the associated 

value of S . 

o 

Values from the above equation using various combinations of S G and p Q 

(reference profiles) were compared to empirical density data. The results of 
this comparison indicated that two such combinations provide realistic density 
models. These are the 1959 ARDC density model with an S Q of 220 and the 1962 
U. S. Standard density model with an S Q of 200. 

Figures 1 and 2 show when ib 1 - 75° (mean diurnal effect) 

p o 


.ilJsJ 

P S 

° \ °l 


. 81 


3 + 2. 5 


h - 360 
240 


h - 360] 

2 " 

240 j 



for various values of S and S q = 220 and S q = 200, respectively. 


These two reference atmosphers, the 1959 ARDC and U. S. Standard 1962, 
are used in the program. Lifetimes may be predicted solely on these models 
or using these models as a base with corrections for the time frame being con- 
sidered as discussed above and adjusted with data obtained from flights. The 
selection of a model for the base is completely arbitrary. Essentially the same 
density model will result for either base reference. The base model is corrected 
in the program for solar activity behavior and diurnal effect in the following 
manner: 


p = P o ( R!) D c 


/si 

K 

[l + .19(e- 0055 R ; -1.9) ji±2SS-li| 

\ 
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where 


p (R!) = Density of base reference atmosphere as a function of altitude 
RJ. This is assumed to be a diurnal mean atmosphere. 

D = Altitude dependent correction factor derived from satellite 
C observations (discussed later in some detail). 


S = Reference index of heating parameter, i. e. , the value of S to 

which the D factor is referenced, 
c 

R! = Field point altitude above an oblate earth 

ip' = Angle between the field point and the center of the diurnal bulge. 


The heating effect on atmospheric density is altitude dependent and 
the density is greater on the side of the earth toward the sun. The latter effect, 
the diurnal bulge, is represented by the brackets 


f 


i + .19 <e- 0055R i -1.9) 

/ _ _ . , _ ... 

1 + cos ip' 3 

2 | 

1 + . 19 (e* 0055R i -l. 9 ) 

1 + cos 75° 1 3 
2 

V 

/ 
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and is derived in Reference 4. The formulation given above assumes that the 
base atmosphere represents a mean dirunal effect so that, when ip' equals the 
mean value of 75 degrees the ratio becomes one ( 1) for any altitude ( ip' is derived 
below) . The variation in the effect of the heating parameter with altitude and 
position on p is represented in the equation (Reference 2) by K, where 


H 

Rl - 360 1 

i 

r Rj - 360 i 

2 1 


5. 6 - cos 4>' 

, 240 J 

1 2 

i 240 J 

1 J 


6. 6 


( 5 ). 


This exponent K is shown in Figure 3 as a function of altitude. The angle ip 1 
is calculated as follows: 


cos ip' = 11 + mm + nn , 

J3 J3 J3 


( 6 ) 
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(l,m,n) = direction cosines of the field point 
X 

s 

R. 

1 

Y 

s 

R. 

i 

z 

s 

R. * 

1 

R = Radius vector from earth center to field point. X , Y , Z are the space- 

i S S S 

fixed components of the position of the vehicle computed as 

X = X' cos £2 - Y’ sin 
s 

Y = X* sin £2 + Y' cos £2 
s 

Z = Z' 
s 

X’ = X 
Z 1 = Y sin i 

and 

X = R. cos (o> + v) 
i 

Y = R. sin (co + v) 

i 

i = orbital inclination - angle between the earth equatorial plane 
and the plane of the orbit 

£2 = Right ascension of the ascending node-angle between the inter- 
section of the orbital plane with the earth equatorial plane and 
the vernal equinox 

co = Argument of perigee-angle between the ascending node and 
perigee 
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v = True anomaly-angle between perigee and the field point 
= Direction cosines of the diurnal bulge 



e = inclination of the ecliptic = 0. 4092 rad 

= celestial longitude of the sun 

A = [ 0. 017203 d + . 0335 sin ( 0. 017203 d) - 1. 41 ] 
s 

d = number of days elapsed since Dec. 31, 1957 
i m i 


RA = tan 1 
s 


s 

1 

s 


rad 


RA — RA — 0 
B s 


e 


Radians 180 


^ [18. 5 + 30e Kl + K z a + (1 - a 2 )] 


if 9 > 5 set 9-5 
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<T = 


s - 160 
90 


K t = -.00567 <R. - 200) 


01455 
+ e 


(R! - 200) 


k 2 


18. 5 + 21. 5e * 


03l5(R^ - 200) 


B. Verification and Accuracy of Present Density 
Model From Flight Experience 


The effective drag on the Saturn vehicle has been derived at MSFC 
primarily by the inclusion of drag as an additional unknown which is solved for 
in a conventional least square differential correction orbit determination program 
as discussed in Reference 5. The orbit correction program used included an 
atmospheric drag model which used the 1959 ARDC atmospheric density profile 
and assumed a constant ballistic factor for the satellite. The drag acceleration 
A^ on the satellite was calculated as 

A/M) Ve ' (11) 

where is the drag coefficient, A is the effective cross-sectional area, M is 

the satellite mass, v e is the velocity relative to the earth, p Q is the reference 

atmospheric density at the satellite, and D c is a constant used nominally to 
compensate for variation of the actual current atmospheric density from the 
1959 ARDC density profile. Solutions for D c were made for SA-5, SA-6 
and SA-7 using radar tracking data in the orbit correction process described in 
Reference 5. Using these data in addition to Gemini and Discoverer data, a 
correction factor from the 1959 ARDC atmosphere was established as shown in 
Figure 4. These factors are referenced to an index of heating S of 100 which 
was applicable during the Saturn I flight time frame. Using these empirically 
derived solutions in the new jointly developed MSFC/LMSC lifetime program, 
a comparison of actual to predicted lifetime was made for 39 decayed satellites. 
The results of this comparison are presented in Table I. 

As an indication of the accuracy of the prediction, the ratio of actual 
lifetime to predicted lifetime is shown in Table I for each case. This ratio 
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(A/P) appears to be normally distributed, having a mean value of 1. 000 and a 
standard deviation of . 082. These results indicate that the representation of 
solar activity as presented and the corresponding density as a function of time 
for the altitude region of 350 km and below is indeed valid for the time frame up 
to 1965. The validity for future years is only as good as the prediction of solar 
activity. 

Similar density models are currently being investigated: one using the 
59 ARDC as the reference density model, S Q = 220 and DC = 1. 0 for all altitudes, 
and another using the 62 U. S. Standard as the reference density, S Q = 200, and 
DC = 1. 0 for all altitudes. These yield essentially the same density as the one 
previously mentioned (S Q = 100, DC shown in Figure 4) in the 100-300 km alti- 
tude range and are currently being compared to data obtained in the 490-550 km 
altitude range from SA-8, SA-9, and SA-10 flights. 


C. Prediction of Future Behavior of Parametric 
Input to the Model 


Examination of the history of solar activity indicates that the present 
cycle need not necessarily follow a course similar to the last cycle. The F^ 7 
and Kp for the period 1958-1975, which are currently being used in the MSFC 
computer program, are shown in Figure 5. Figure 6 shows the heating para- 
meter S based on the nominal values of Fjo. i an d Kp given in Figure 5. The 
seasonal effect eS(t) on S is shown in Figure 7 as a function of the time of the 
year. The product of these two factors yields the heating parameter S. The 
Fio. i and Kp values which occurred earlier than mid-1965 are averages of the 
actual recorded values, while those from mid-1965 to 1975 are based upon 
certain predictions and assumptions. 

The extrapolation of F 70> 7 was based on the following assumptions: 

1. F 10< 7 and Zurich smoothed sunspot number, R, are well correlated 

and the regression line is given by Reference 6 as 


F jo. 7 = 50 + . 967 R 


and 


Fjo = 68 + . 607 R 


(F 10 . 7 > 100) 


( Fio. i < 100) . 
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2. The beginning of the new cycle (minimum F 10>7 ) was in mid-1964. 

3. The new sunspot cycle was assumed to have the shape and duration 
of the mean of sunspot cycles 8 through 18. 

4. The magnitude of the sunspot maximum, , was assigned the value 
150, based on the following: 

(a) All predictions of thus far found in the literature agree that 
Rjyj will be less than 150 (except one which indicates that R]y[ < 160). 

(b) In predicting lifetimes for mission planning, it is generally 
better to underpredict lifetime than to overpredict lifetime. 

(c) While most authors predict a value of Rm considerably lower 
than 150, the likelihood of this is questionable in view of the fact that the pre- 
ceding cycle had the highest R^j ever recorded and natural phenomena tend not 
to change drastically from one occurrence to the next. 

5. The time lapse of four years from minimum to maximum 
sunspot number for the new cycle is the same as that for the mean of cycles 8 
through 18. The relationships of consideration 1 above were used to compute 
Fjd > 7 from the R values obtained by adjusting the mean of cycles 8 through 18 
by a proportionality factor which forced R]y[ to be 150. 

The 3cr upper bound curve of F 10i 7 , F 10t 7 (max) , was drawn by fairing 
straight line segments through points computed by the following formula: 


F 10 . i (max) = F 10>7 + . 2(F 10 . 7 - 60) + 4(year-1964. 5) . (12) 


This formula was chosen to represent the increasing uncertainty in F 10 . 7 as F 10> 7 
increases and as time increases. The weighting factors were chosen so as to 
yield 


F w . 7 (max) = 244 at 1968. 5. 

The 244 maximum of the previous cycle was chosen as an absolute maximum for 
the new cycle. The 3<r lower bound was derived similarly from the lowest 
recorded cycle. 
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TABLE I. DECAYED SATELLITE ANALYSIS 





t 

h 

A 

P 

R 



Name 

s 

(year) 

P 

(km) 

(days) 

(days) 

(A/P) 

1 

58 

DELTA 2 

1959. 158 

207 

404. 0 

364.0 

1. 11 

2 

58 

DELTA 2 

1959. 725 

199 

197. 7 

179. 5 

1. 10 

3 

58 

ZETA 

1958. 966 

175 

33. 6 

33.2 

1.01 

4 

59 

GAMMA 

1959. 287 

257 

11. 2 

10.7 

1. 05 

5 

59 

EPSILON 

1959. 621 

215 

43. 4 

39. 9 

1.09 

6 

59 

ZETA 

1959. 637 

218 

60.7 

51. 6 

1. 18 

7 

59 

LAMBDA 

1959. 889 

187 

108. 3 

110.0 

0. 98 

8 

59 

EPSILON 2 

1960. 125 

219 

362. 0 

355. 5 

1. 02 

9 

60 

DELTA 

1960. 294 

173 

9. 83 

10. 6 

0.93 

10 

60 

THETA 

1960. 615 

256 

95. 0 

106. 6 

0. 89 

11 

60 

OMICRON 

1960. 880 

183 

42. 9 

42.7 

1. 01 

12 

60 

SIGMA 

1960. 960 

251 

107. 4 

113. 0 

0. 95 

13 

60 

TAU 

i960. 973 

195 

32. 9 

33. 8 

0. 97 

14 

61 

EPSILON 

1961. 135 

298 

525. 5 

575. 3 

0. 91 

15 

61 

ZETA 

1961. 146 

252 

422. 6 

460.7 

0. 92 

16 

61 

LAMBDA 1 

1961.272 

297 

372. 9 

384. 8 

0. 97 

17 

61 

LAMBDA 2 

1961. 321 

220 

391. 2 

429. 6 

0. 91 

18 

61 

XI 

1961. 466 

224 

23. 2 

27. 8 

0. 83 

19 

61 

PI 

1961. 537 

233 

133. 9 

143.4 

0. 93 

20 

61 

ALPHA BETA 

1961.745 

243 

27. 3 

27. 3 

1. 00 

21 

61 

ALPHA GAMMA 

1961. 803 

234 

24. 9 

25. 0 

1. 00 

22 

61 

ALPHA EPSILON 

1961. 855 

246 

394. 3 

413. 0 

0. 95 

23 

61 

ALPHA KAPPA 

1961. 973 

248 

76. 8 

74. 6 

1. 03 

24 

62 

RHO 

1962. 356 

203 

15. 6 

13. 1 

1. 19 

25 

62 

CHI 

1962. 435 

213 

20. 6 

19. 5 

1. 06 

26 

62 

ALPHA GAMMA 

1962. 496 

209 

76. 2 

79. 6 

0. 96 

27 

62 

SIGMA 

1962. 556 

323 

492. 0 

484. 2 

1. 02 

28 

62 

ALPHA ETA 

1962. 575 

204 

16. 5 

15. 8 

1.04 

29 

62 

ALPHA THETA 

1962. 594 

206 

18. 6 

18.2 

1. 02 

30 

62 

ALPHA KAPPA 

1962. 602 

208 

18. 3 

20.0 

0. 92 

31 

62 

ALPHA SIGMA 

1962. 673 

176 

6. 9 

7. 1 

0. 97 


t s = initial time, h p = initial perigee altitude, A = actual lifetime, P= predicted 
lifetime. 
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TABLE I. ( Concluded) 




t 

h 

A 

P 

R 


Name 

s 

P 






(year) 

(km) 

(days) 

(days) 

(A/P) 

32 

62 ALPHA CHI 

1962. 728 

211 

56. 9 

56. 8 

1.00 

33 

62 BETA EPSILON 

1962.797 

220 

29. 5 

26. 8 

1. 10 

34 

62 BETA OMICRON 

1962. 865 

210 

20. 1 

20.4 

0. 99 

35 

62 BETA SIGMA 

1962. 928 

134 

3. 6 

3. 85 

0. 94 

36 

62 BETA PHI 

1962. 980 

200 

16. 1 

15. 15 

1. 06 

37 

64 (GEMINI) 

1964. 274 

164 

4.2 

5. 09 

0. 86 

38 

64 (SA-6) 

1964. 408 

182 

3. 2 

3.21 

1. 00 

39 

64 (SA-7) 

1964.716 

185 

3. 8 

3. 3 

1. 15 


t = initial time, h = initial perigee altitude, A = actual lifetime, P = predicted 
s p 

lifetime. 
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FIGURE 3. EXPONENTIAL ATMOSPHERIC WEIGHTING FACTOR (K) FOR EFFECT OF HEATING 






FIGURE 4 . CORRECTION FACTOR FOR DENSITY 
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FIGURE 5. CURRENTLY DEFINED F^ ? AND K p VERSUS TIME 
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m. LIFETIME PROGRAM 


A. NOTATION 


This list defines the equation symbols in terms of the computer input language used. 


Equation 

Symbol 

Program 
Symb ol 

Definition 

Units 

A i’ A o 

A. 

1 

APO 

ADOT 

apogee radius 

time rate of change of apogee 
radius 

km 

km/ day 

• / 
A. 
1 

ADOTP 

M(t)A: 

i 

kg -km 
/day 

a n. 

J 

AN 

interpolated value of apogee at 
time (j = 1...5) 

j 

km 

A o. 

1 

ARAA 

effective drag area of the 
orbiting vehicle 

2 

m 

cd'. 

1 

CDP 

coefficient of drag as an altitude 
function 

non- 
dimen- 
s ional 

CN. 

i 

CNN 

coefficient of drag as an attitude 
function 

1 1 

D 

! 

DD 

coefficient of the 4th zonal har- 
monic of the earth 1 s gravitational 
potential 

1 1 

F 

F 

reciprocal of the flattening of 
the earth (298.3) 

1 1 

F 

1 0.7 

FTEN 

daily 10.7 cm solar flux 

-22 

10 

w att s / rr 
/ cycle 
/sec 

y 

10.7 

FTENB 

yearly mean values of ^ 

IT 

H 

HH 

coefficient of the 3rd zonal har- 
monic of the earth 1 s gravitational 
potential 

non- 

dimen- 

sional 

J 

JJ 

coefficient of the 2nd zonal har- 
monic of the earth 1 s gravitational 
potential 

1 1 

K 

KERTH 

earth 1 s gravitational constant 

km^/ sec 



(Continued) 


Equation 

Symbol 

Program 
Symb ol 

Definition 

Units 

K p 

AP 

daily mean values of geomag- 
netic index 

non- 

dimen- 

sional 

Kp 

XK 

9 lo g e p/ 9 log e S 

n 

M(t) 

MT 

mass of orbiting vehicle at time t 

kg 

PD. 

1 

PDI 

anomalistic period- (time between 
two successive perigee passages) 

min 

P P 

i**0 

PERI 

perigee radius 

km 

P. 

1 

PDOT 

time rate of change of perigee 
radius 

km/da'v 

p' 

1 

PDOTP 

! 

M(t)P. 

kg - km 
/day 

% 

PN 

interpolated value of perigee at 
time T p (k = 1...5) 

k 

km 

r ab 

RAB 

right ascension of the center of 
the diurnal bulge 

deg 

r as 

RAS 

right ascension of the sun 

deg 

r e 

AE 

earth's equatorial Radius 

km 

k. 

1 

RI 

radius to probe 

km 

1 

RIP 

altitude to probe 

km 

1PA. 

X 

RPAI 

sub-perigee apogee earth radius 

km 

> 

SS 

current index of total heating 
of the atmosphere 

non- 

dimen- 

sional 

. 

SO 

reference index of total heating 
of the atmosphere 

1 1 


(Continued) 



(Continued) 


Equation 

Symbol 

Program 

Symbol 

Definition 

Units 

t a. . . 

J = 1...5 

INTERA 

times at which apogee interpo- 
lations are performed 

days 

T 

P 

k = 1...5 

INTERP 

times at which perigee interpo- 
lations are performed 

days 

YP. 

1 

VPI 

earth-fixed velocity at perigee 

km/ sec 

X ,Y ,Z 
s s s 

XS, YS, ZS 

space-fixed ephemeris compo- 
nents of the position of the 
satellite (see Section II-B-2) 

km 

a p a o 

AI 

semi -major axis of the 
ellipse 

km 

a. 

1 

SADOTI 

time rate of change of semi- 
major axis 

km/day 

d 

XDATE 

number of days elapsed since 
31 December 1957 

days 

e i' e 0 

El 

eccentricity 

non- 

dimen- 

sional 

i 

l 

INC 

inclination 

deg 

1, m, n 

XL, XM, XN 

direction cosines of the satellite 

non- 

dimen- 

sional 

1 B’ m B’ n B 

XLB, XMB, XNB 

direction cosines of the ceiiter 
of the diurnal bulge 

1 1 


XLS, XMS, XNS 

i 

direction cosines of the vector 
to the sun 

1 1 

n i* n o 

i 

NI 

mean motion 

i 

deg/day 

t 

TTT 

universal time 

hr s 

t. 

1 

TIME 

time in orbit 

days 

t 

n. 

l 

REVOL 

number of revolutions, made by 
the satellite 

non- 

dimen- 

sional 
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(Continued) 




(Continued) 


Equation 

Symbol 

Program 

Symbol 

Definition 

Units 

At. 

l 

DTI 

change in time for one apogee 
step 

days 

0 

THETA 

sidereal time 

deg 

9 P 

XLAG 

lag angle between earth-sun 
line and the diurnal bulge 

deg 

J V°o 

CAPW 

right ascension of the ascending 
node 

deg 

i* 0 
a. 

i 

CAPID 

ALPHA 

time rate of change of ascending 
node 

angle of attack of the satellite 

deg/day 

deg 

Ja 

DA 

apogee integration step size 

km 

z 

ECLIPT 

obliquity of the ecliptic 

deg 

X 

s 

XLAMS 

celestial longitude of the sun 

deg 

o 

• H 

E 

true anomaly 

deg 

P 

RHO 

atmospheric density 

kg/m 2 

r* 

COSPP 

angle between the center of the 
diurnal bulge and the satellite 

deg 

CO 

e 

OMEGA 

rotational velocity of the earth 

deg/hr 

o 

3 

#1 

•H 

3 

SMAW 

argument of perigee 

deg 

“i»“o 

SMAID 

time rate of change of argument 
of perigee 

deg/day 


tli 

Subscripted symbols such as denote values at the 1 n apogee step, 

whereas oo^, ft q.Aq denote initial values. 
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B. Program Description and Flow of Computations 


The Satellite Orbit Decay and Orbital Lifetime Program has three phases: 

( 1) a control phase that controls the sequence of events in the entire program; 

(2) a transformation phase that accepts input in any of eight coordinate systems 
and transforms to the remaining seven; and (3) a lifetime phase that computes 
the decay history and lifetime of the orbiting body. The deck is programmed in 
Fortran IV language for the IBM 7094 computer. 

i. Control Phase. This phase determines the route to be taken and the 
values to be used in computing both the decay history and lifetime. The Control 
Phase first calls the input routine "MAVRIK" which reads one or more data cards 
for the initial case. The only card that is always required for execution of the 
program is the one that defines either the satellite's initial position and velocity 
or orbit elements in one of eight optional coordinate systems. However, the 
actual breakdown of these options leads to more ways of inputting these initial 
orbit parameters than eight. The following outline elaborates on this. 

The user can input in any one of eight coordinate systems, two of which 
contain three coordinate "subsystems" ' each: 


1. 

Earth -fixed plumbline 

(position and velocity) 

2. 

Earth-fixed ephemeris 

(position and velocity) 

3. 

Space-fixed ephemeris 

(position and velocity) 

4. 

Space-fixed geographic 

(position and velocity) 

5. 

Earth-fixed geographic 

(position and velocity) 

6 . 

Platform 

(position and velocity) 

7. 

Osculating orbital elements: 



(a) Semi-major axis, eccentricity, inclination, right ascen- 
sion of ascending node, argument of perigee, and true 
anomaly (alphanumeric code OET). 


'''In effect, there are 12 coordinate systems. 
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(b) Semi-major axis, eccentricity, inclination, right ascen- 
sion of ascending node, argument of perigee, and eccent- 
ric anomaly (OEE). 

(c) Semi-major axis, eccentricity, inclination, right ascen- 
sion of ascending node, argument of perigee, and mean 
anomaly (OEM). 

8. Mean orbital elements: 

(a) Same as (7) except mean elements replace osculating 

elements. Corresponding alphanumeric codes are MOT, 
MOE, and MOM. 

The coordinate systems described previously are explained in detail in 
Section III. B. 2. 

Each of the six coordinate "subsystems" in (7) and (8) above can be 
input in one of four optional ways: 

A Apogee and perigee radius. 

B Apogee and perigee radius, inclination, right ascension of ascending 
node, (true, eccentric, or mean) anomaly, argument of perigee , 
universal time, sidereal time. 

C Semi-major axis and eccentricity. 

D Semi-major axis, eccentricity, inclination, right ascension of 

ascending node, (true, eccentric, or mean) anomaly, argument of 
perigee, universal time, and sidereal time. 

In option A and C the apogee radius, perigee radius, semi-major axis, 
and eccentricity are treated as mean elements whether they are mean or 
osculating. This is the case since the other elements required for the trans- 
formation between osculating and mean elements are not given. Nominal values 
of inclination, right ascension of ascending node, (true, eccentric, and mean) 
anomaly, argument of perigee, universal time, and sidereal time are built into 
the program. For orbits having elements grossly different from these, use 
options B or D. Options A and C should be used only if a bare minimum of 
information is available. 
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After calling "MAVRIK," the control phase logically decides whether 
input is position and velocity or orbit elements. If it decides that an orbital 
element system was not used, then the program proceeds immediately to the 
transformation phase; if an orbital element was used, further decision-making is 
required by the control phase. In all cases except options A and C of the orbital 
element system the program uses the transformation phase. However, when 
either options A or C are chosen the transformation phase is not used since it 
is unlikely that one would desire transformation based on "nominal" values of 
i, £2, w, etc. 


a. Orbital Element System Not Used . If the coordinate system input 
is other than orbital elements, such as earth-fixed geographic (EFG) , then the 
following events occur: 

1. Transform EFG to the remaining seven systems. 

2. Print transformations. 

3. Extract from mean orbital elements the following: apogee 
radius, perigee radius, inclination, right ascension of ascend- 
ing node, and argument of perigee. These elements are then 
ready for use in the lifetime phase. 

Logical Flow: 
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b. Orbital Element S ystem Is Used. If the coordinate system 
input code contains the alphanumeric code for one of the Orbital Element systems, 
OET, OEE, OEM, MOT, MOE, MOM, then one of four input options is available. 
Consider the case: 

12345678 
OET = ++. ++) ++. ++) ++. ++) ++. ++) ++. ++) ++. ++) ++. ++) ++. ++) 


Option A 

If the value loaded in position 2 of this input is greater than 1. 0, then 
positions 3 through 8 are tested. If all these positions contain zeroes then the 
input is assumed to be in the form: 

OET = Apogee radius) perigee radius). 

These two values along with the assembled "nominal" values for inclination, right 
ascension of ascending node, and argument of perigee are ready for use in the 
lifetime phase. 


Logical Flow: 
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Option B 

If any of positions 3 through 8 are non- zero, then the input is assumed to 
be in the form: 

OET = apogee radius) perigee radius) inclination) right ascension of node) 
true anomaly) argument of perigee) universal time) sidereal time). 

Semi-major axis and eccentricity are computed from the input values of apogee 
and perigee radius: 

A - P 
_ o o 

e o _ A + P 
o o 

These elements are now in the format required for transformation not only to 
mean elements for use in the lifetime phase, but also to the elements in the 
remaining coordinate systems for display in the printout. 


A + P 
o o 


Logical Flow: 
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Option C 

If position 2 is less than 1. 0, then positions 3 through 8 are tested. If 
these positions are all zero then the input is in the form: 

OET = semi-major axis) eccentricity) . 

From these two values, apogee and perigee radius are calculated: 


A=a (1. + e) P = a ( 1. - e ) 

o o o o o o 

These values are used along with the assembled "nominal" values of inclination, 
right ascension of ascending node, and argument of perigee in the lifetime phase. 


Logical Flow: 
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Option D 

If position 2 is less then 1. 0 and if any of positions 3 through 8 are non- 
zero then the input is in the form: 

OET = semi-major axis) eccentricity) inclination) right ascension of 
ascending node) true anomaly) argument of perigee) universal 
time) sidereal time) . 

These elements are in the format required for transformation not only to mean 
elements for use in the lifetime phase, but also to the elements in the remaining 
coordinate systems for display in the printout. 

Logical Flow: 




2. Transformation Phase . The transformation phase accepts input in 
any one of the eight aforementioned coordinate systems, performs the required 
transformations, and outputs in the remaining seven. All programming is done 
in double precision. The transformation subroutine is a general purpose one 
used in other computer programs. A detailed description of this phase of the 
program is not included in this writeup, but may be obtained from the author. A 
brief description of each coordinate system follows: 
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a. 


Earth- Fixed Plumbline (EFP) 

XEP, YEP, ZEP, DXEP, DYEP, DZEP 


A right-handed Cartesian coordinate system with its origin 
at a point on the surface of the earth, specified by geodetic 
coordinates <f> 0> and X Q . The Z-axis points in the direction 
of the local geodetic vertical (plumbline). The X-Y plane is 
tangent to the geodetic ellipsoid with the X-axis pointing 
along a specified azimuth defined as (KAPPA) (normally the 
firing direction). This system is completely earth-fixed. 

b. Earth-Fi xed Ephemeris (EFE) 

XE, YE, ZE, DXE , DYE, DZE 

A right-handed geocentric Cartesian coordinate system. The 
Z-axis points north along the axis of rotation of the earth 
(through the north pole) . The X-Y plane is the earth equa- 
torial plane, and the X-axis points through the Greenwich 
meridian of longitude. The system is completely earth-fixed. 

c. Space-Fixed Ephemeris (SFE) 

XS, YS, ZS, DXS, DYS, DZS 


A right-handed geocentric Cartesian coordinate system. The 
Z-axis points north along the axis of rotation of the earth 
(through the north pole). The X-Y plane is the earth equa- 
torial plane, and the X-axis is collinear with and directed 
toward the vernal equinox of date (i. e. , at time t) . At time 
t = 0, the Greenwich Hour Angle equals zero. 

d. Space- Fixed Geogra phic (SFG) 


R , ip , X , V 

o T o' c 


Cl 


e 

s 


A right-handed system containing an earth-fixed position 

vector and a space-fixed velocity vector. The position vector 

is specified by geocentric earth-fixed spherical coordinates: 

radius, R , geocentric latitude, ip , with respect to the earth 
s s 
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equatorial plane; and geographic longitude, A g) measured 
positive eastward from the Greenwich meridian in the earth 
equatorial plane. The velocity vector is referenced to a 
fundamental plane tangent to the sphere of radius R s , per- 
pendicular to R s , and with origin at the point of tangency. 

The velocity vector is specified by space-fixed velocity 
magnitude, V ; elevation angle, e g , with respect to the funda- 
mental plane; and azimuth a , the angle between the pro- 
jection of the velocity vector in the fundamental plane and the 
north vector in that plane. 


e. Earth- Fixed Geographic (EFG) 


R , ip , A , V 

T /~\ S' 


a 


e 

e 


The right-handed (nonrectangular) system with its origin at 
the center of the earth. The position vector is defined by R e , 
ip e , and which are the same as R g , ip s , and A g in the space- 
fixed geographic system. The earth-fixed velocity vector is 
defined by V e , the earth-fixed velocity magnitude, a e the 
earth-fixed azimuth of the velocity vector, and e Q the earth- 
fixed elevation of the velocity vector. This system is com- 
pletely earth-fixed. V e , a e , and e e are defined the same as 
V , o; s > and e g except they are earth-fixed and not space- 
fixed. 


f. Platform System (PLT) 

XPL, YPL, ZPL, XDPL, YD PL, ZDPL 

The platform coordinate system is defined such that it coin- 
cides with the earth-fixed plumbline system until the time of 
first motion of the vehicle. At the instant of first motion, the 
system becomes space-fixed and is a space-fixed plumbline 
system with its origin centered at the launch pad at the time 
of first motion. Gravitational effects on the position and 
velocity component at the transformation time are accounted 
for. The system is a right-handed rectangular coordinate 
system. The Y-axis points in the direction of the local geo- 
detic vertical (plumbline). The X-Y plane is tangent to the 
geodetic ellipsoid and at the time of first motion, the X-axis 
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points along a specified azimuth defined as KAPPA (normally 
the firing direction) . The system is then completely space- 
fixed. 

g. Osculating Orbital Elements (OET) , (O EM) , (OEE) 
a, e, i, fi, co, (p, E or M) 

The orbital element system is defined by six elements of the 
two-body ellipse with the reference body being determined by 
the body constants used, normally those of the earth. The 
elements are the semi-major axis (a) of the ellipse; the 
eccentricity (e) ; the inclination of the orbital plane to the 
equatorial plane (i) ; the right ascension of the ascending 
node (fl) ; measured eastward in the equatorial plane from 
the vernal equinox to the ascending node of the orbit; the 
argument of perigee or the angle between the ascending node 
and the perigee (co ) ; and the angular position of the satellite 
defined by either true ( v ) , eccentric (E) or mean (M) 
anom aly. 

h. Mean Orbital Elements ( MOT) ( MO M) , (MOE) 
a, e, T, To (p, M or E) 

The mean orbital elements are defined as the osculating 
orbital elements with either or both the long and short peri- 
odic variation due to the earth oblateness removed. 

Equation defining the short-period variations in orbital elements contain 
trignometric functions in argument of latitude or in one of the anomalies; hence, 
they have periods equal to or less than one orbital period. Expressions for the 
long-period variations, on the other hand, contain trignometric functions in ar- 
gument of perigee and hence have periods much larger than one orbital period. 
These long-period terms may contain some short-period terms also. 

Note that universal time and sidereal time are common to all eight 
coordinate systems. 

3. Lifet ime Phase. The initial mean orbital elements A Q , P Q , i Q , 
c o Q , are input to the orbit lifetime-decay computation phase from the control phase. 
At the initial point the instantaneous apogee and perigee rates of change (A Q , P Q ) 
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are evaluated using Simpson's numerical integration technique. Integration steps 
in true anomaly are taken from 0 to 360° , completing one orbital revolution, 
and the mean rates of change over the revolution evaluated. The effective drag 
coefficient, area, and atmospheric density are required input at each integration 
step. The orbital decay is thus evaluated at successive apogee steps in the fol- 
lowing manner. For successive apogee (A) values taken in increments of dA, 
the corresponding perigee (P) values are determined, the rates of change A 
and P are evaluated and the resulting lifetime calculated using Runge-Kutta 
integration of A and the orbital mass function. More detailed explanations are 
given in the following subsections. 

a. Orbital Parameter Computations 

( 1) Parameters that are constant at the i^ 1 apogee integration 
step for all v values. 



+ 


P. 

i 


) 


e. = (A. - P.) /( A. + P.) 
i i i i l 




1 - (sin 2 i sin 2 cu.)/F 
o 1 


Units 


km 


km 


where i is initial inclination, 
o 


1 1 

3 


n. = (K/a. 3 ) 2 
1 1 1 

1+ J (R /a.) 2 bj (1 - e. 2 ) 2 

Hi 1 1 

c 


where 

, . 3. 2 . 

bi = 1 - — sim l 
1 2 o 

C = ( 24) ( 3600) ( 57. 2957795) 


deg/day 
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Units 


1 

£2. = -Jn. cos i \ Ft / 
l l o ] E 

a i (1 " e i )2 ]| 2 

deg/day 

\ 

co •= — Jn. (4-5 sin 2 i ) ^ 
1 2 i o > 

V[ a i (1 - e i> 2 ]) 

deg/day. 

Compute 

\ ) 


At. = (A. -A. )/A. . 

l l l-l l-l 

9 

days 

then 



• 

£2. = £2. , + £2 , At 

i l-l i-1 i 


deg 

• 

co. = co. . + co. . At. 

l l-l l-l i 


deg 


At initial time, 

0J . = co ; £ 2 . = £2 

10 1 o 


Finally, period and velocity at perigee are computed from 


PD. = (2tt/ 60) (a. 3 /K)2 


VP. = K 2 A 2/P.) 1 +| J (R E /P.) 2 (i - 


3 sin 2 i sin 2 co.) 
o 1 


min 


km/sec 


(2) Parameters that are variable with v at each apogee integration 

step. Geocentric radius to the satellite is 
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Units 


R. = 

i 


a (1 - e. 2 ) 

1 + e. cos v 
i 


) + 


2JR e 2 

3a^ ( 1 - e^ 2 ) 



- ( 0. 3R H/J) sin i 
E o 


sin ( co. + v) - sin ( c o 
i o 


+ V) 


km 


Altitude of the satellite is 


R.' = R. - R„ 
l l E 


1 - (1/F) sin 2 i sin 2 (to 
o i 



km 


This value of R' is used in the density p (R ') and drag coefficient (C ') 
calculations. 


b. Ballistic Param eter s Computation 

( 1) Drag Coefficient. The effective drag coefficient is input in two 
parts. (Note that the nomenclature was arbitrarily selected and may not be 
consistent with standard aerodynamic terminology. ) 

(a) The first part, Cq', is input as a function of altitude (R^ 1 ). 
The input is given in table form with up to 20 values of 
Cj-j' and the associated altitude. This allows for the varia- 
tion in Cp with altitude. The table is input with the highest 
altitude first followed by succeeding altitudes in decreasing 
order. 

A linear interpolation is performed to determine C^' for a 
specific value of P. If only one C^' is input no interpolation 

is performed and the one value of C^’ is is used for all values 
of P. If P exceeds the first value in the table, the first 
value of Cj-j 1 in the table is used; if it is smaller than the 
last value in the table , the last value is used. 

(b) The second part, C^, is input as a function of angle of attack 
or time. The input is given in table form with up to 20 values 
of and the associated angles of attack or time. Angle a 
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varies from 0 to 360° while time starts at smallest value. 
This allows for variable attitudes of the vehicle during an 
orbit. 

_i If a is input a linear interpolation should be performed 
to determine for a specific value of a. If only one 
C N is input, this value is used for all values of a. 

2 If time is input check lifetime t^ ^ , then: 

If t. . s t 4 , use C T at t value, 
l-l N-l N N 


If t. 4 < t T . , use C T at t _ A value, 
l-l N-l N N-l 

The times associated with the C^'s mean that discrete changes in are 
made at these times. 

The value of the coefficient of drag to be used at each integration point 
around the orbit is then 


C D ' C D' C N 


(2) Drag Area 


A . = f (oi , or time) 
oi 

The effective drag area is input as a function of angle of attack or time. 
This then allows for variable attitude during an orbit or at some time in flight 
but not both. The input is given in table form with up to 20 values of area and 
the associated angles of attack or time. 


If a is input, a linear interpolation is performed to determine A ^ at 
a specific a. If only one A ^ is input, this value is used for all values of a. 


If time is input, check lifetime t. , at the previous integration step. 
Then , 1 1 


if t. . s: t 4 , use A at t value; 
l-l N-l N 


if t. , < k T A , use A at t . value, 
l-l N-l N-l 
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The times associated with the A's mean that discrete changes are made in A at 
these time points. 

(3) Special C^A^. Provision 

A special provision is made to compute CqA q j for use in the A' 
and P’ equations if called for by the flag. This allows for a variation in attitude 
during an orbit with only a specification of the number of revolutions made. 

CDA = (Sine(N ls t 4 , ... N , (End( 

where N is the number of cycles/orbit made by the orbiting vehicle input as a 
function of time t. A check is made of the lifetime t. 

If t. . > t , use N at t T value, 
l-l N-i N 

If t. , < t . , use N at t , value, 
l-l N-l N-l 


The following equation is then used to compute CDA: 

CDA = CDiAot + (CD^ - CDjA 01 ) I sin (Nv -f- 0 :^) | , 


where 


CDj = C D 'CN lt CD 2 = C d 'CN 2 .... 

CN ls A 01 , CN 2 , A 02 and C^’ values are determined from the table functions, and 
a is taken from the angle of attack table (described below) for a true anomaly, 
v, equal to zero. 

(4) Angle of Attack, a 

The angle of attack is input as a function of true anomaly. The 
input is given in table form with up to 20 values of a and the associated values 
of v. If only one value of a is given, then this value -should be used for all v's. 

(5) Mass Functions 

M(t) = f(M,t) or f(t) or a constant 
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The mass function M(t) will be handled in three ways: 


(a) Input M q and up to 20 values each of and in table 
form. Then the following calculations are made: 

M(t.) = M - M A. . . 

1 o N-l l-l 

A check on mass at the previous time point is made: 

If M(t) > M~. t . , continue use of M XT . . 

fN-i N-l 

If M(t) < , change to use of M N . 

This should be continued in table until M(t) < M ; then use 

(b) Input up to 20 values of mass as a function of time in table 
form. Then, the following check is made on lifetime at the 
previous integration step: 

If t. .st , , use M at t T value, 
l-i N-l N 

If t. . < t , use M at t XT . value, 
l-l N-l N-l 


This table allows for discrete changes to be made in M at 
specified time point. 

(c) If mass is desired as a constant throughout the total lifetime, 
just the initial mass M q is loaded. 

C. Atmospheric De nsity Options . The provision is made to call for the 
use of any one of six atmospheric density models by flag. These models are 
1959ARDC, 1962 U. S. Standard, Poe, Small, Special 1959 ARDC, and Special 
1962 U. S. Standard. For altitudes greater than 700 km, density is set equal to 

0 . 


( 1) PI59 ARDC and 1962 U. S. Standard Atmospheric Models . These 
two atmospheric density models are in subroutine form and are on the system 
library tape at the Computation Laboratory at Marshall Space Flight Center. 
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These two models differ from the standard 1959 ARDC and 1962 U. S. Standard 
in that they are referenced to the Patrick Air Force Base altitude rather than a 
mean sea level altitude. 

To use this lifetime program at an installation that does not have a system 
library tape that originated at MSFC , either the subroutine cards must be ob- 
tained or one of the models described in the following section must be used. 

(2) Poe and Small Atmospheric Models . The Poe and Small atmos- 
pheric density models (References 2 and 7) are time and position dependent 
since the effects of atmospheric heating are included. A subroutine for each 
of these models is included as a part of the Lifetime program and can be used 
directly. 


( 3) Special 1959 ARDC and Special 1962 U. S. Standard Atmospheric 
Models . These two models were previously discussed in detail in Section n. 

The models as programmed are respecified in this section. These two models 
are the same as ( 1) with the exception that atmospheric heating and diurnal 
bulge can be included on option. There are two options for specifying the effect 
of the diurnal bulge. One method is to compute the angle (*/>’) between the 
satellite and the center of bulge as follows: 


cos ip 1 = H + mm + nn . 

To evaluate the two sets of direction cosines, the following formulas are 
required: 

f = cos £2 cos (co + v) - sin S2 cos i sin (co + v) 
m = sinf2 cos (u> + v) + cos £2 cos i sin (u> + p) 
n = sin i sin (cu + p) 

S. = \/n 2 + S. 2 cos (RA ) 

33 s s 33 

ni = \]n 2 + l 2 sin (RA1 
B s s B 
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where 


ri = n 


^ = cos A ; m = sin A cos e ; n = sin A sine 

s s s s s s 

RA = [tan -1 (m /£ ) ] - 9p 
Jj s s 

A = . 017203 d + . 0335 sin (.017203 d) - 1. 41 
s 

e = (tt/180) [18. 5 + 30 exp (Kj) + K 2 cr + 4(1 - a 2 ) ] ; 9 <5 

P p 

9 = 5 ; 9 > 5 

P p 

and 

Kj = -. 00567 (RA - 200) + exp [ -. 01455 (RA - 200) ] 

K 2 = 18. 5 + 21. 5 exp [-. 0315 (RA - 200) ] 

<J = (S - !60)/90 . 


The second method for specifying the effect of the diurnal bulge is to set 
ip* = 75° which is simply a mean diurnal bulge. 

The angle ip ' is then used in the equation 


K 

P 


3 + 2. 5 

(R.* - 360 1 

-0. 5 

R ' - 360 ) 

2 “ 


5. 6 - cos 4 

i 240 l 

1 240 i 



6. 6 




- 


— 


Finally, density is computed from 
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s 


K 


,! 6 


*->, ' 0 < R i’ )D c 


i + . 19 [exp (. 0055 R. - i. 9) ] [cos ] 

l 2 


1 + .19 [exp (.0055 R - 1.9)] [cos 37.5°] 6 


in which p (R. T ) is either the 1959 ARDC or the 1962 U. S. Standard reference 
*0 1 

density called for, and D c is an altitude-dependent density correction factor. If 
Ri» < 120 km, 

p = p 0 (R.'l D c . 


However, when 120 km < R4 < 700 km, compute 


S = S exp [ g( t) ] 


S = 25 + 0. 8 F 10> i + 0. 4 ( F 10> 7 - F 10- 7 ) + 10K 

ir 


g(t) 


025 cos 



' d - 1843 
365. 25 


- . 06 cos 



fd-1843 1 


365. 25 j 



The yearly mean solar flux, F 10<7j may be input in table form as a function of 
date (decimal year) and a linear interpolation for the current value of F 10 . 7 
performed. If no values of F 10- 7 are input, then F 10> 7 is computed as follows: 


Fjo. 7 = 135 + 75 cos 


2n 


I d - 136' 
4090 


+ 15 cos 


4n 


Id + 1741 


| 4090 j 



F 10 7 may a lso be input in table form. If no value of F 10> 7 is input then F 10> 7 is 
set equal to F 10> 7 . KP is input in table form as a function of date (decimal 
year) and a linear interpolation performed to obtain the current value of KP. 

Many of the foregoing parameters and their definitions were adopted from 
Reference 2. 

d. Apogee and Perigee Decay Rates at the i^ 1 Apogee Integration 
Step. At each i 01 integration step the time rates of change of apogee and perigee 
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radius (which are functions of v) are averaged over 2w on v. The resultant 
definite integrals are evaluated by Simpson's rule using fixed increments of v. 
The procedure follows: * 


A.' 

1 


-86. 4x IQ 6 
27T 


a( 1 + e) 
K( 1 - e) 3 


f 2ir Ci( 1 + cos u) 

{ d - 


Units 


kg-km/day 


P.' 

l 


-86. 4 x IQ 6 
27T 


/ a(l-e) 

^ K( 1 + e) 3 


J 2ir Cl(l 


cos v) d 


kg-km/day 


J 

Cl = (C_, ) ( A .) (p.) ( 1 +2 e. cos v + e. 2 ) 2 , 

D. oi l l l 

i 


then 

A = A.'/M(t) 


P =P.'/M(t) , 

where M(t) is taken from calculations in Section El. B. 3. b. ( 5) . 

For printout only, the time rate of change of semi-major axis is computed 

from 


= 5<V p t> 


Finally, for use by the Runge-Kutta integration routine, the rates of change of 
time and perigee with respect to apogee are computed. 


* The derivations of A.' and P.' are given in Section V. 
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M(t)/A ' 


d P. 
1 

d A. 


1 


P.'/A.’ 
1 l 


e. Integration of Time and Perigee with Respect to Apogee. The 
integration scheme used to numerically determine the change in time and perigee 
with respect to apogee is Runge-Kutte (Reference 4). 

The Fortran source listing of the Runge-Kutta routine is given in Section 
VI, Statements 3 to 13. However, a brief explanation of the flow of the compu- 
tations performed by Runge-Kutta follows. 

At the starting point for any lifetime computation, initial values of A, 

P, i, 12, co are known. Using these initial values, the initial rates of change of 
time and perigee with respect to apogee are computed via the equations in 
Sections IH-3-a through in-3-d. With the information now available (A, P, 
dt/dA, dP/dA) , the Runge-Kutta scheme is used to take a step ( 6 A) in apogee 
and to arrive eventually at a solution for perigee and time at the end of this step. 
For the next step initial values of A, P, i, fl, co are available from the previous 
step and the whole sequence of computation is repeated as in step one. One of 
the main points to understand is that the Runge-Kutta scheme, for any one apogee 
step, is keyed to obtaining a very good value of dt/dA and dP/dA at the midpoint 
of the particular apogee step. Once this is obtained, values of perigee radius and 
time at the end of the step are evaluated immediately. Remember that 6A is an 
exact quantity input to the program while <5P and St must be calculated. The 
operations performed by Runge-Kutta are as follows. 

For convenience of notation let: 

( i ) P = known perigee at beginning of step. 

A^ = known apogee at beginning of step. 

T. = known time at beginning of step. 

SA = known step size in apogee to be taken. 
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PD = dP/dA 


TD = dt/dA , 


then 


6 A 
2 


, _ Uil. 

CPi = -r“ PD 


P. = CPt + P t 


A. = A t + 8A/2 

__ 6A __ 
CTi = — TD 


t. = Ti + CTi 
1 


Compute new PD & TD using aforementioned equations 
in Sections HI- 3- a through III- 3-d. 


<5A 

2 


CP 2 = — PD 


P. = CP 2 + Pj 


<5A 

2 


CT 2 - — TD 


t. = T* + CT 2 


CP 3 PD 


Compute new PD & TD as above. 
<5A 


P. = 2 CP 3 + P t 


A — A-i + 6 A 

l 
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CTg = — TD 
t. = Tj + 2 CT 3 

Compute new PD & TD as above. 

(S A 

A = PD + 2 CP 3 + 2 CP 2 + CPj /3 
P. = A + Pi 

l * 

A A 

A. = ^ TD + 2 CT 3 + 2 CT 2 + CP* /3 
1 z 

t. = Ai + Th 
l 1 

(2) P^ and t. are now good at A. + A 

Using the latest values of P , A^, t , PD, and TD, the above 

process from (1) to (2) is repeated until some cutoff cri- 
terion is met, namely, apogee, perigee or earth impact. 

The lifetime t- is converted at each apogee step to revolutions, t^ , for printing 
only. 


(t. - t. ,) 1440 
l l-l 

Vi ~ Vi-1 + PD. 

l 

f. Altitude Interpolations . Although the vaules of apogee and perigee 
radius are computed and printed at the end of every apogee step, the user might 
like to know what these values are at intermediate points. 

An option is available which allows the interpolation for the the printout 
of a maximum of five intermediate apogees and five intermediate perigees, or a 
total of ten extra points if the user so desires. 
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The equations used for interpolation are 

<T A.-W (A l- A t-l ) 


A N. A i-1 + (t. - t 


( ‘i - *1-1> 


P.. = P. + 
N. l-i 
k 


< t p 

^ 


where A-^ and are the interpolated radii of the apogee and perigee and 
j k 

and T p are the times at which the interpolations are performed, 
j k 
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cn 

o 


/ i s \ 

input in 

orbital element 
system 


^ Is \ 
card 
position 
2 > 1. 0 ? 


Are card 
positions 3 thru 
8 = 0 ? 


/ Go to \ 

( Go to \ 

l 3. 

\ 4 - ) 



Call 

TRANSFORMA- 
TION. Trans- 
form and print. 


Extract neces- 
sary mean ele- 
ments for 
lifetime phase 


Call 

LIFETIME. 
Loop back 
to 1. 


Input is a, e. 
Compute 
A. = a( 1 + e) 
pj = a(l - e) 


Use this Aj, and Pj 
along with the 
"nominal: values of 
i, w, in LIFE- 
TIME phase 



Call 

LIFETIME 
Loop back to 
1 . 


/ Are card 
positions 3 thru 
. 8 = 0 ? 


Compute from A St P 
A + P 


Call TRANSFORMA- 
TION using a and e 
along with input values 
of i, 0, , t, 0 


Extract mean elements 
call LIFETIME and 
loop back to 1. 


Input is apogee 
and perigee 
radius only 


Use input A and P 
along with the 
"nominal" values of 
i, 0, win LIFETIME 
phase 


Call LIFETIME 
and loop back to 
1 . 


Input is other than 
orbital elements 


Call TRANSFORMA- 
TION and extract mean 
elements for lifetime 
phase 


Call 

LIFETIME 
Loop back 
to 1. 


Block Flow of Control Phase 


Computer Program 




















apogee \ 
interpolation 
called 


Interpolate 
and save 
intable form. 


perigee \ 
interpolation 
called 


Interpolate 
and save 
in table form. 


Change apogee 
step size if 
needed at this time. 


Check print 
options and 
print 

accordingly. 


Check for cutoff 
on earth impact, 
apogee ait. or 
perigee alt. 


Print tables of 
apogee and peri- 
gee interpola- 
tions if any. 


Block Flow of "Life" Routine 






























1 . Description of Input Routine (MAVRIK) Used By The Orbit Decay and Orbital Lifetime Program 


The MAVRIK input routine is unique to the Computation Laboratory at MSFC. This routine allows 
flexibility of input and is therefore well suited for engineering work. 

Single precision floating point numbers containing up to 10 digits (sign, decimal, and exponent 
excluded) may be input. Such numbers always contain a decimal point, are terminated by a comma, and 
may be input in one of several forms. For example, the number 6378.168 may be input as follows: 

6378.165, 6.378165E+03, 6.378165+03, 

6.378165+3, 5378165. E-3, 637816.5-2, 

Integers may also contain up to 10 digits (sign excluded). Integers contain no decimal points and 
are terminated by commas as follows: 6378, 100, 71658, . 

Double precision numbers may contain up to 16 digits (sign, decimal, and exponent excluded). 
These numbers always contain a decimal point, are terminated by a right hand parenthesis, and may be 
input in one of several forms. For example, the number 6378.165987654321 may be input as: 

6378.165987654321) .63781 65987654321D+04) 

637. 816598765432 1D+1) 637816. 5987654321D-2) 


Alphanumeric information, as used in this program, may contain up to 6 characters. Each piece 
of information is enclosed by left hand parenthesis and is left- adjusted in machine storage. Examples of 
alphanumeric input follows: 

ON CARD IN STORAGE 


(ALPHA( 

(MASS( 

(bMASS( 


ALPHAb 

MASSbb 

bMASSb 


All input is loaded by code name followed by an equality sign. For example: MASS = 74812. , 
ATMOS = (ARDC(. A complete listing of all input codes is given in the following tables. 
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COMPUTER PROGRAM INPUT 



2. Description of Parameters That May Be Input to The Lifetime Phase 


Input Code 

* J 

Equation 
Symbol : 

Unit & 
Direction 

Nominal 

Value 

Definition 


•V 't' 'i" -V* 

BALLISTIC PARAMETERS ***** 


AREA= (***(++. ++, 

A 

2 

m 

(ALPHA 

Table of effective drag 

++. ++, • . . (END( 

j 

o 


(1., 360., 
(END( 

: 

area values as a func- 
tion of either angle of 
attack or time. *** 
specifies whether area is 
a function of (ALPHA( or 
(TIME(. The first value 
after*** is the dependent 
variable, AREA, followed 
the independent variable; 
either ALPHA in degrees 
or TIME in hours. The 
table may contain up to 
20 values of area (with 
the corresponding 20 val- 
ues of independent var- 
iable). 

ATTACK= ++. ++, 
++. ++, . . . (END( 

a 

i 

i 

i 

deg 

1. , 360. , 
(END( 

! 

1 

j 

i 

i 

Table of angle of attack as a 
function of true anomaly. 
First table value is the 
dependent variable, a , 
followed by the independent 
variable, true anomaly, in 
degrees. Table may contain 
up to 20 values of a (with 
the corresponding 20 values 
of true anomaly. 



Input Code 

Equation 

Symbol 

Unit &: 
Direction 

Nominal 

Value 

Definition 

CDPRIM=++. ++, ++. ++, 
. . . (EN.D( 

CD’ 

non-dimensional 

1 ., 0 ., 

(END( 

Table of drag co- 
efficients as a func- 
tion of perigee alti- 
tude. First value is 
dependent variable, 

CD, followed by inde- 
pendent variable, peri- 
gee altitude, in kilo- 
meters. Table may con- 
tain up to 20 values of 
CD with corresponding , 

values of perigee alti- 
tude. 

CDA= (***(++. ++, ++. ++, 
. . . (END( 

i 

N 

cycles/ orbit 


When this table is input 
the quantity CD A is com- 
puted as some function of , 

AREA, ATTACK, COPRIM, 
and N. * ^indicates the 
sine function (SINE(. Other , 
functions could be added at 
a later time. The first 
number in the table is N, 
the number of cycles/orbit 
made by the orbiting body. 
The second number in the 
table is time in hours at 
which the next vahae of N 
should be used. Table may 
contain up to 20 values of ; 

N with the corresponding 
| time s . 



Input Code 

! 

Equation 

Symbol 

Unit & 
Direction 

Nominal 

Value 

Definition 

MASS= (***(++. ++, ++. ++, 

; . ..(END( 

1 

m(t) ' 

| 

i 

! 

see definition 

i 

(CON(l. , 

1 Orbiting mass function. 

There are three methods 
for specifying mass. 
Method one, *** specifies 


(RATE(, the first value 
in the table is an initial 
mass (M 0 ) in kilograms, 
the second value is a mass 
decay rate (m) in kilograms/ 
day, and the third value is 
a final mass (Mf) in kilo- 
grams. If the mass decays 
to (Mf) then the next decay 
rate in the table is used a- 
long with a new Mf. If an 
(END( is found in the table 
the last Mf is used as a 
constant mass until the 
run is completed. Table 
may contain up to 20 values 
of mand corresponding M^. 
Method two . *** specifies 
(TIME(, the first value in 
the table is an initial mass 
(M) in kilograms, and the 
second value in the table is 


i 

! 

1 

i 

1 


a time (t) in hours to change 
to a succeeding mass (m). 

If an (END( is found in the 

table the last M is 

used as a constant mass un- 




1 

til the run is completed. 
Table may contain up to 20 
values of M and correspond- 
ing times. 


Input Code 

Equation 

Symbol 

Unit & 
Direction 

Nominal 

Value 

Definition 

MASS (cont. ) 




Method three. ***specifies 
(CON(, the first and only ' 
value in the table is the 
mass in kilograms to be 
used throughout the entire 
run. For this option no 
(END( is needed in the 
table. 

CN= (***(++. ++, 
++. (END( 

C N 

II 

! 

* 

\ 

non- dimen sional 

(ALPHA( 

1., 360., 
(END( 

i 

i 

! 

i 

i 

1 

i 

Table of normal force 
coefficients as a function 
of either angle of attack 
or time. w^specifies whe- 
ther cn is a function of S 

(ALPHA( or (TIME(. The 1 
first value in the table is ! 

the dependent variable, ! 

followed by the independent . 
variable, either J*. in 
degrees or time in hours. 
The table may contain up to 
, 20 values of Cjsj with the 

j corresponding independent 1 
variable. 

i 

i 

i 

i 

i 

, i 

i 

i 

! 

i 

I 





Input Code 

1 Equation 

Unit & 

Nominal 

. Definition 


Symbol 

Direction 

Value 

i 


***** DENSITY PARAMETERS ***** 


DATE--H-. ++, ++.++, 

++. ++, 


month, 

year 


day 


ATMOS=( 


( 


p 



(ARDC( 


CORREC=++. ++, ++. 
++,... (END( 


! 

I 


DC 


non- dimen sional 


L, 0. , (END( 


Jt 

it 


Calendar date to be used in 
density calculation when 
special density is desired. 

Flag indicating atmosphere 
to be used. Options avail- 
able are: 

(ARDC( 1959 ARDC At- 
mosphere 

USSTD( 1962 US Standard 
Atmosphere, 

(POE( L MSC Atmosphere 
Routine 

(SMALL ( LMSC Atmos- 
phere Routine 
(SPECAR( Modified 1959 
ARDC Atmosphere 
(SPECUS( Modified 1962 
US Standard Atmosphere 


Table of density correc- 
tion factors DC as a func- 
tion of perigee altitude in 
km. First value in table 
is DC, second value is 
perigee altitude. Table 
may contain up to 50 val- 
ues of DC and correspond- 
ing altitude. 


cn 

CD 



o* 

° Input Code Equation Unit & Nominal 

Symbol Direction Value Definition 

DIURNJL=(***( deg (MEAN( Flag indicating diurnal (bulge) effect 

desired in special density calculations. 
***=(MEAN(indicates a mean diurnal 
effect where lag angle, is set equal 
to 75°. This effect corresponds to 

, 9:00 a.m, local time for a lag angle 

of 30°. ***=(NORMAE(indicates com- 
putation of diurnal effect as given by 
special density equations. 

! ^ — 

ECLIPT=++. ++, deg 23. 4436 Obliquity of the ecliptic . Used in com- 

puting ? . 

KP=4+. ++, +4. ++, ~ ~~ * _ ~ ~ ~ 

.... (END( KP kp 2.5, 2000, , Table of monthly mean values of geomag- 

(END( netic index. Table is input as a function 

of decimal year. Up to 50 KP‘s and cor- 
responding years may be loaded. 








Input Code | 

Equation 

Symbol 

Unit & : 

Direction 

Nominal 

Value 

Definition 

KP (cont. ) 


| 

i 

Note: In the literature 
Kp is listed as 0 0 , O+, 

^ ^o^t } j 9-, 9 0 ; 

however loaded values 
are specified as a deci- 
mal number, e. g. 8 . 7. 

FTEN=++. ++, ++. ++, ' 

. . . (END( 

1 

1 

F 10.7 

! 

! 

I 

' 

1 

10 “^watts/ 

-m^/ cycle/ 

; sec 

! 

i 

i 

1 ; 

1 i 

0 . 

1 

Table of monthly mean 
values of F^q. 7 These 
values will be available 
only for post flight pre- 
dictions. The values are 
loaded in the order F^q. 7 
decimal year, Fio> deci- 
mal year etc. Up to 50 
values of ^ 10.7 and corre- 
sponding years may be 
loaded. 

FTENB=++. ++, ++. ++, 
(END( 

F 10. 7 

i 

i 

10 " 22 watts/ 
; m 2 /cycle/ 

sec 

i 

t 

! 

i 

SEE BELOW 

Table of yearly mean val- 
ues of F^o. 7 These val- 
ues arc loaded in the order 
F 10< 7 decimal year, F^q. 7 
decimal year, etc. Up to 
50 values of Fjq. 7 and 
corresponding years may 
be loaded. The assembled, 
nominal table is given be- 
low. 


Nominal Value of 


10 - 


243. 6 , 1958. , 230. 7, 1958. 5, 226. 5, 1959. , 208. 9, 1959. 5, 180. 5, I960. , 161 . , I960. 5, 130. 8 , 1961. , 104. 8 , 1961. 5, 
99. 3, 1962. , 89. 7, 1962. 5, 382. 7, 1 963. , 80. 8 , 1 963. 5, 77. 9, 1964. , 70. , 1964. 5, 75. ,1965. , 80.., 1965. 5, 1 31. , 

1966. 5, 186. ,1967. 5, 200. , 1968. 5, 1 90. , 1 969. 5, 163. , 1970. 5, 142. , 1971 1 28. , 1971 . 5, 108. , 1972. 5, 94. , 1973. 5, 
81. , 1974. 5, 75. , 1975. , 75. , 1975. 5, (END( 


Input Code 

Equation 

Unit k 


Symbol 

Direction 

so=++. ++, 

So 

non-dimensional 

SA=++. ++, 

ss 

non-dimensional 

j 

! 

i 

i 


1 ***** SPECIAL INPUT 




PRINT- ( 


Nominal 

Value 


Definition 






220. 0 

Reference value of total 
heating used in the com- 
putation of special 59 
ARDC and 62STD densi- 
ties. Normally the 100. 
value will be used but if 
a D c curve derived for 
some other heating value 
is loaded then SO must 
be changed to that total 1 

heating value. 


0 . 

i 

Reference value of total 
heating used in LMSC 
Hunt Small density com- 1 

putation. If no SA is 
loaded, program auto^- 
matically computes 
this value. 




(NORMAL ( 

; Flag denoting type of out- 
put desired. (NORMAL(, 
(SHORT (, (DETA1L( are 
the options available. Com- 
plete description of each 
option is given in the out- 
put section of this report. 


i 

i 








Input Code 

1 

Equation 

Symbol 

Unit &: 
Direction 

Nominal 
V alue 

Definition ■ 

INTERA=++.++, ++.++, 1 

i 

• • • * 

a n. 

j 

days 


Table of up to 5 times 
for which an interpola- 
tion for apogee will be 
performed. Apogee 
values stored in table 
form to be output at 
end of run. 

INTERP=++.++, ++.++, 

• • • • 

i 

J 

X 

t 

i 

! 

days 

I 

Table of up to 5 times 
for which an interpola- 
tion for perigee will be 
performed. Perigee 
values Stored in table 
form to be output at 
end of run. 

i 

CUTOFF= (***(++.++, 

i 

! 

I 

f 

! 

i 

I 

! 

1 

i 

km from 
earth center 

(1(6378.166, 

\ 

Flag denoting method I 

of terminating run. *** ! 

1 indicates which para- 

meter cutoff will be 
made on. Three options 
I are available: (A (apogee 

radius, (P( perigee radius, 

: (I( earth impact. ++.++ is 

the radius at which cutoff 
j is desired. 

DANOM=++.++, 

t 

| <$v 

deg. 

10.0 

! 

Integration step size in 
true anomaly to be used 
in Simpsons rule inte- 
gration around orbit. 

Must be a multiple of 360. 


o 

CO 



a* 


Input Code 

Equation 

Symbol 

Unit &: 
Direction 

Nominal 

Value 

Definition 

DAPOGE=++.++, 

++,++, .... 

6A 

km 

See table 
at right. 

Integration step size in 
apogee used in RUNGE- 
KUTTA integration. The 
step size is a function of 
apogee radius and is 
loaded in the form of 6A* 
A (km), *5A> A(km), etc. 

Up to 5 step sizes and 
the corresponding apogee 
radius may be loaded. 

The nominal, assembled 
table is: 

-5. , 6778. , -10. , 6578. , 
-20. , 0. , 


***** CONS' 

rANTS ***** 



F=++. ++, 

f 

non-dimensional 

298.3 

Reciprocal of the flat- 
tening of the earth. 








Description of Parameters That May Be Input to The Transformation Phase . 


Input Code 

Equation 

Symbol 

Unit & 
Direction 

Nominal 

Value 

Definition j 

The following constants, KERTH through DD , are input to the Transformation phase in double 
precision and are carried to the Lifetime phase in single precision. These constants are common to 
both phases. 

; KERTH=++. ++) 

K 

kmV sec^ 

398603. 2 

Earth gravitation constant. 

AE= ++.++) 

R 

e 

km 

6378. 165 

Mean equatorial radius of 
the earth. 

AO=++. ++) 

AO 

; 

km 

6378. 165 

Semi-major axis of Fischer 
ellipsoid 

BO=++. ++) 

BO 

i 

km 

6356. 784 ! 

Semi-minor axis of Fischer 
ellipsoid 

OMEGA= + -K ++) 

03 

e 

deg/hr 

15. 04106705 : 

Rotational velocity of the 
earth. 

jj=++. ++) 

! 

j 

non-dimensional < 

. 162345D-2 

Coefficient of the 2nd zonal 
harmonic of the earth’ s 
gravitational potential. 

HH=++. ++) 

1 

H 

! 

. 575D-5 

\ 

l 

(J 

i 

Coefficient of the 3rd zonal 
harmonic of the earth’s 
gravitational potential. 

DD=++. ++) 

D 

n 

. 7875D-5 

Coefficient of the 4th zonal 
harmonic of the earth’s 
gravitational potential. 

PHIO=++. ++) 

$ 

deg. n 

28. 5 

Geodetic latitude of launch 
pad. 

LAMDO = ++. ++) 

X 

deg. w 

80. 5 

Longitude of launch pad. 


Input Code 

Equation 

Symbol 

_ L 

Unit &: 

Direction 

Nominal 

Values 

Definition 

KAPPA=++. ++) 

a F 

deg. e of n 

105. 

Launch Azimuth 

XG=++. ++) 

XG 

km 

0. 

X- component of position 
due to gravitational ac- 
celeration at transforma- 
tion time. 

\ 

YG=++. ++) 

YG 

km 

0. 

Y- component of position 
due to gravitational ac- 
celeration at transforma- 
tion time. | 

Z G= ++. ++) 

ZG 

km 

0. 

Z-component of position 
due to gravitational ac- 
celeration at transforma- 
tion time. 

XDG=++. ++) 

XDG 

! 

! 

' km/ sec 

1 

0. 

X- component of velocity 
due to gravitational ac- 
celeration at transforma- 
tion time. 

YDG=++. ++) 

YDG 

i 

i 

km/ sec 

! 0. 

; Y- component of velocity 
due to gravitational ac- 
celeration at transforma- 
tion time. 

! ZDG=++. ++) 

; ZDG 

i 

j 

km/ sec 

i 

0. 

Z-component of velocity 
! due to gravitational ac- 
! celeration at transforma- 
tion time. 

T FM=++. ++) 


hr s 

) 

0. 

1 Universal time of first 
motion. 


Coordinate Systems That May Be Input to the Transformation Phase 


Input Code 

Order of 
Input 

Unit &: 
Direction 

j 

; Definition 

, EFE=-H-. ++)++. ++). . . . ) 

XE 

km 

Earth-fixed ephemeris system in order: 

: YE 

km 

position vector, velocity vector, universal 

ZE 

km 

time, sidereal time. 

XE 

km/ sec 


YE 

km/sec 


ZE 

■ km/sec 


, t 

hours 


e 

deg 


; EFP- + + . ++)++. + +). . . . ) 

XEP 

km 

Earth-fixed plumbline system in order: 

YEP 

km 

position vector, velocity vector, universal 

ZEP 

km 

time, sidereal time. 

1 XEP 

km/sec 


j YEP 

km/ sec 


ZEP 

km/sec 


; t 

r ' 

hours 


! 8 

l 

deg 

i 

; SFE-++. ++)++. ++). o • • ) 

XS 

1 km 

Space-fixed ephemeris system in order: 

YS 

i km 

position vector, velocity vector, universal 

ZS 

km 

time, sidereal time. 

XS 

km/ sec 


YS 

km /sec 


ZS 

km/sec 



t 

hours 



0 

deg 


SFG=++. ++)++. ++) ) 

Rs 

km 

Space-fixed geographic system in order: 


VS 

deg 

range, geocentric latitude, longitude, 


As 

deg 

velocity, azimuth, geocentric elevation. 


Vs 

km/ sec 



as 

deg 



es 

deg 



t 

hours 



9 

deg 



<1 




Unit & 
Direction 


Definition 


km 

deg 

deg 

km/ sec 
deg 
deg 
hours 
deg 

km 

non-dimensional 
deg 
deg 
deg 
deg 
hour s 
deg 

km 

non-dimensional 

deg 

deg 

deg 

deg 

hours 

deg 

km 

km 

km 

km/ sec 
km/ sec 
km/ sec 
hours 
deg 


Earth-fixed geographic system in 
order: range, geocentric latitude, 

longitude, velocity, azimuth, geo- 
centric elevation. 


Osculating orbital element system in 
order: semi-major axis, eccentricity, 

inclination, ascending node, anomaly, 
argument of perigee, universal time, 
sidereal time. Anomaly may be input 
in any of three ways: True (OET), 

Mean (OEM), Eccentric (OEE). 


Mean orbital element system in order: 
semi-major axis, eccentricity, inclina- 
tion, ascending node, anomaly, argu- 
ment of perigee, universal time, sid- 
ereal time. Anomaly may be input in 
any of three ways: True (MOT), Mean 

(MOM), Eccentric (MOE). 


Platform coordinate system in order: 
position vector, velocity vector, uni- 
versal time, sidereal time. 


Descrip tion of IOMET Flag Controlling Addition or Subtraction of Long and Short Periodic TermsJji 

Orbital Element Trans formation s 

INPUT CODE IOME T = ( * * * ( ( * * * ( 

NOMINAL VALUE IOMET=(SHORT((NOLONG( 

If input is given in any system other than mean orbital elements, then the following conditions apply. 
IOMET = (SHORT((NOLONG( Short-period terms are subtracted. 

IOMET = (NOSHRT((LONG( Long-period te rms are subtracted. 

IOMET = (NOSHRT((NOLONG( No terms are subtracted. 

IOMET = (SHORT ((LONG( Both short and long-period terms are subtracted. 

If input is in mean elements the above conditions apply with the exception that the periodic terms are 
added instead of subtracted. 


a 

co 


D. Computer Program Output Options 

There are three formates for output available in the Lifetime program. 


They are: short, normal, and detail. The following input cards to "MAVRIK" 
produced a sample of each of the three types of output. 

CN 

= (ALPHA( 2. , 360. , (END( 

DATE 

= 4. , 8. , 1964. , 

AREA 

= ( ALPHA( 26. 04, 360., (END( 

MASS 

= ( CON( 6040. , 

MOT 

= 6618.567) .01211) 32.68) 81.4) 101.809) 60.407) 

ATMOS 

= ( ARDC( 

PRINT 

- ( SHORT (/ 

PRINT 

= (DETAIL!/ 

PRINT 

= (NORMAL!/ 


i. Short Output . ( See computer output on following page. ) 
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EARTH 2 R 8 f T 


TRANSFCRMATI PH 


PH 10 = 

0.2 850 000000000 GOOD 

02 ' 

DEG 

LAM 00 - 

0 . 80 500000000000000 

02 

OEG 

AZFlR 

= 

0. 1050000000000000D 03 

OEG 

A = 

0. 6 37 8 1 65000000000D 

OA 

KM 

B 

0.63567839999999990 

OA 

KM 

eMEGA 

= 

0. 150AIC6705000000D 02 

OEG/ HR 

RADIUS* 

0.63781 65000000000D 

OA 

KM 

KERTH = 

0. 398603 2000000000D 

06 

KM3/SLC2 

1 J 

= 

0, 1623A50000000000D-02 


H 

0. 5750COOOOCOOOOOOD- 

-05 


D 

0.78750000000000000-05 


XG 

= 

0 . 

KM 

YG' = 

0 .' 


KM 

ZG 

0 . 


KM 

xdg" ' 

"* 

0 . 

‘"km/sec' 

YDG 

G. 


KM/SEC 

ZDG 

0 . 


KM/SEC 

TFM 

= 

0 . 

H0URS 


INPUT IN K0T SYSTEM SHSRT N0LBNG 
"P0SITI0N '(KM) VEL0C1TY (KM/SCC) ANGLES (DEG) 
EFP 


XE 


-0". 3037 077883 A 7338 7D 

OA 

YE 

s 

-0. 10A61A2628A96821D 

OA 

ZE 

‘ = 

0.25 0598 992A336A80D 

OA 

XDE 

= 

0.59572A6065928e6AD 

01 

YOE 

= 

0. 16205G5A87157563D 

01 

ZDE 

= 

0.398271A9189795A3D 

01 

PL T 












XPL 

= 

-0.3037077B83A73385D 

OA 

YPL 

= 

-0. 10A6 1 A2628A96822D 

OA 

ZPL 

= 

0.250598992A336A79D 

OA 

XDPL 

_ 1 _. 

0. 59796869036366780 

01 

YDPL 

s 

0. 18500678161 6A628D 

0 1 

ZDPL 


0 . A 1 0 5 7 A 1 5 2 5 3 6 A 29 00 

01 

EFE 












XE P 

= 

-0.263023759795A 8A0D 

OA 

YEP 


-0.5986299572713 2 9 ID 

OA 

ZEP 

a 

0. 1089689A76602931D 

OA 

XD EP_ 

_ 

0. 53161203A2908635D 

01 

YDEP 

* 

-0. 3 16 1077 2620 A 3 16 3D 

01 

ZDEP 

= 

-0.39625808812588630. 

01 

SFE 












XS"' 


-0.263O23759795A8A0D 

OA 

YS 

□ 

-0. 5 98 6299572715 29 ID 

OA 

ZS 

= 

0“. 10 8 96 89A 7 6 602 93 ID" 

OA 

xos 

a 

0. 575A6A8I9706702AD 

01 

YDS 

= 

-0. 335287721A6875550 

0 l 

zos 

a 

-0. 39625808812568630 

01 

TIME 

= 

-0. 


THETA 

= 

-0. 






SFG 












R 

= 

0.6628827615I52297D 

OA 

GCLAT 

= 

0. 9A6159A291796026D 

0 l 

L2NG 

= 

0.2A628CA5601763250 

03 

'VS 


0.77A982636768695AD 

01 

A Z VS 

= 

0. 12135935A2378 1 b ID 

03 

EL V S 

= 

C. 688AA20A09938637D 

oo’ ~ 


TFG 


R 

0.6628 827615 152297D 

OA 

GCLAT 

= 0.9A6159A291796026D 01 

L0NG 

.= 

0.2A628CA5601 763250 03 



VE 

0.73A689A6232618750 

01 

A Z VE 

- 0. 12329A96702A50730 03 

ELVE 

= 

0. 72620079920A9315D 00 



00E 

AXIS = 

0.66 20 9031696 89 6A 10 

OA 

ECCEN 

- 0. 1207A7A8215571A6D-01 

INC 

. 

0.3261583AA66220A7D 02 



ASN0D = 

0. 813760573553691 OD 

02 

ARGP 

= 0.65866 2222 3696307D 02 

TAN0M 

= 

0.96376689682992690 02 



EAN0M = 

0.956886596393306 60 

02 

MANCM 

= 0. 9500023A6568AAA5D 02 






K0E 

AXIS = ' 

0. 661 85669999999990 

OA 

ECCEN 

= 0. 121 lOOCOOOOOOGOOD-O 1 

INC 


0.32599999999999990 02 




ASN0D = 

0.81399999999999990 

02 

ARGP 

= 0. 6CA0699999999999D 02 

TANCM 

= 

0. LO 1 8090000000 GOOD 03 



EANCM - 

0. 10112897369097720 

03 

MAN2M 

^ 0. 100AA8'l695"5907160 03 






AUXILIARY 

CALCULATIONS 






■ - 


— 

AP0GEE = 

0. 322 68 3906 A2 332 060 

03 

KM 

PtRIGEE= 0. 162792A309559598D 

G3 

KM 

PER I 00 = 0.89356L321A091300D 

02 

MIN 

RANGE = 

0. AC5803A1 323003530 

0<, 

KM 

ALT = 0.2 5 12A32 30 92168190 

03 

KM 

TPITCH = 0.39386929603982360 

02 

OEG 

EC V 

-0. A6A 1 98A A8C0672 120 

-02 

KM/ SEC 

LEV = -0. 32 166 A 79A A 9530370 

01 KM/SCC 

NAP2Gt£ - 0. 3205523A6369998AD 

03 

KM 

MP tRTGE = 

0. 160251 r5 3629 999AD 

0 3 

KM' 

MPER 100= 0 . 89 3 106 A 1 6 1 1 5 12520 

02 MIN 

DARGP - 0. 11179298298297090 

02 

DEG/DAY 

CASN0D = 

-0. 7393552696386070D 

01 

OEG/DAY 









**«•« EARTH CONSTANTS ■ 

EARTH SECOND HARMONIC 0.16234499002 EARTH THIRD HARMONIC 0 . 57 500000 E - 05 EARTH FO URTH H A RMONIC 0 . 7 87 A 9999 E-Q 5 

"TA'RThTTR AVrm 1"C HAL CONSTANT f'K l"L C METE KS cut! E 0/ s £ C.CN D S SQUARED ) 0 .*39 860319606 
EQUA TOR I ALRADI US (KILOMETERS) 0 . 63781650 E 04 ELLIPTICITY 0 . 29830 C 00 E C 3 

•*»*« BALLISTIC PARAMETERS **••• 


ANGLE 0 F ATTACK FUNCTION 
ALPHA IDE GRTE31 ST, 0>.AlTTt)‘E 7, RE F5T 

0- _ C-36000000E 03 

COEFFICIENT 0FDRAG FUNCTION 
CN ALPHA (DEGREE SI 

0 . 2 0000 C COE 01 G» 360000C0E 03 


CDPRIME _ PERIGEE (KILOMETERS) 

l.OOOOOCOOE CG " *" o: 

EFFECTIVE DRAG * ARE A'fTncTT ON 
AREAtMETERS SQUARED) AL PH A { D EG RE E S ) 

0 • 26040C0GE 02 0.3600C0C0E 03 

MASS CONSTANTS 

INITIAL MASS(KILGGRAMS) 0.60399999E 04 

***** DENSITY PARAMETERS 


M0MH = 0.40E 01 DA Y= 0.80E 01 YEAR 0.1964E 04 DAYS ELAPSED SINCE DEC . 31 , 1957 0.22899999E 04 

1959 ARDC ATM0SPHER&, 


DENSITY CORRECT 1 ON 
DC 

0*120 00 00 OE -00 
0.1 3000C006- 00 
0.14200C00E-GO 
0.18400C00E-00 
0 . 22000 COOE- 00 
0.2750OC0OE-OC 
0.309 00 COOE- 00 
0 • 34000C00E— 00 
0.385 00 COOE-OO 
0 . 42 500COGE-00 _ 
0.970COCOCE-00 
0.52000000E OC 
CT. 5 6515 O' CT 07TEOO 
0 .620000006 00 
0 . 70C00C00E 00 
0 . 80000C00E 00 
0.84000C00E 00 

_0^. 8 6000 c 00E_C 0 

i. 00 000 COOE 00 
1 . OOOOOCOOE 00 


PERIGEE (KILOMETERS) 
0. SOOOOOCOE 03 
0 • 4000 GOCOE 03 
0 . 34 9999 9 9E 03 
0 . 3000000 OE 03 
0. 27999999E 03 
0. 2600C000E 03 
0 ."2 5 00 00 0*0 E 03 
0. 23999999E 03 
0. 230000006 03 
0 • 22000000E 03 
0.20999999E 03 
0. 20000000E 03 
0. 1900 00 COE 0 3 
0 . 1 80000CCE 03 
0 . 1 6 99 99 9 9E 03 
0. 1 600000CE 03 
0. 1 549 99 99E 03 
1 50000 OCE 03 
* 0. 145000 OGE 03 
0 . 


KP 

0 -234C0CCGE 01 

0 . 24 8C0C00E 01 

0^18 90 OCOO 01 
0.25C99599E 01 
0.29 7C0C0CE Cl 
0.24199 5 99f 01 
0.2 5 600 COOL Ol 
0 . 2 59COCCC f 01 


YE A R _ 

* O'. L'9 58'COOOE 04 
0, 1 9 58 8000 L 0 4 
0. 1 9 58 89 9 VE uV 
0. 19589999E 04 
C. 1 959 10 COE 04 
0 . 1 9 59 2000E 04 
0.195930CCE 04 
C. 19594000E 04 



6 .29^06 COOL* ' 01 

0.31599S99E 01 
' 0.34999999E 01 
0.24600COCE 01 
0*2 89G0C00E 01 
0,25699999c 01 
0.23199999E 01 
0.24400COCE 01 
0.34199999E 01 ' 
0,278999996 01 
0 ,292000006 01 * 
0.27100C006 01 
0*2 75 00 C00£ 01 
_ 0 . 322999996 01 
0 , 3440GC0OE 01 
0 • 24900C00E 01 
0,22 700C006 01 
0.23199599E 01 
0,22 899999E 01 
0 • 2 3999999E 01 
0.26899999E 01 
0.22 60CC00E Cl 
‘ 0.217999996 01 
0,1 8499 9 9 9E 01 
0,19199999601 
0. 14900C0GE 01 
0.17299999E 01 
0.1 8099999E 01 
" 0.231 00 CODE 01 
0-1 6000C006 01 
0.2 1 7 999 9 9E G1 
0.261 99999E 01 
0.29399999E 01 
0.30 800 COOt 01 
0 - 20100C00E 01 
0.1 7 500C00E Ql 
0 . 17200 C OOE 01 
0 • 1 54 00 C OOE 01 
0.1 5099999E 01 
0.1 8 600 C OOE Cl 
O.2O8COC0OE 01 
0.205999996 01 
0 . 2 2 3 GO C OOE 01 
0 • 2 3 4 99 9 99E 01 
0.32 600 COCt 01 
0. 2199999 9E 01 
0.20200COGE 01 
0^198GOCOOE 01 
0 • 206999996 01 
0.22099999E 01 
0 .2 1600000E 01 
0 .22499999E 01 
0 . 1 8099999 E 01 
0.1 729999 9 E 01 
Oil 8900000 L’ 01 
0 . 1 6800 C OOE 01 
0.1 70G0CGCE 01 
0 • 1 6700C00E 01 
0.90000C0CE 00 
0 . 770C0C0GE GO 
0 .249 9 9 5 95L 0 1 
0.2 4 999 9 9 96 01 

f-TEN 

0 . 


6119 59999 96 

04 

0. 195960C0E 

04 

0. 1 95970CCE 

04 

0. 1 959800 OE 

04 

0. 1 9 59 90 COE 

04 

0. 19599999E 

04 

0. 1 960 1000E 

04 

0. 196020COE 

04 

0. 1 9603000E 

04 

0. 1 960.90 006 

04 

0. 1960 5000E 

04 

0. 19605999E 

04 

0. 19606999E 

04 

0. 19608000E 

04 

0. 19609000E 

04 

0. 1 961 COOOE 

04 

0. 1961 10 COE 

04 

0. 1961 1999E 

04 

C. 1 961 3000E 

04 

0. 1961 900 OE 

04 

0. 19615000E 

04 

0. 1961 60 OOE 

04 

0. 19 61 69 9 9E 

04 

0. 1961 7999E 

04 

0. 19 61 90 OOE 

04 

0. 1 9 62 00 0 OE 

04 

0. 1962 10C0E 

04 

0. 1962 20C06 

04 

0. 19622999E 

04 

0. 1962 39996 

04 

0. 1 962 500 OE 

04 

0. 19626000E 

04 

0. 1962 70C0E 

04 

0. 1 9 62 80 0 OE 

04 

0. 1962 8999E 

04 

C. 1962 00 C OE 

04 

0* 1 963 10 COE 

04 

0. 1963 12 006 

04 

0. 1 9 63 2 1 0 OE 

04 

0. 1 963 29 0 OE 

04 

0. 1 963 38 C CE 

04 

0- 1 96346 OOE 

04 

0. 1963 53 9 9E 

04 

0. 1 963 62 0 OE 

04 

0. 196371 OOE 

04 

0. 1963 79 C OE 

04 

0. 1 963 88 0 OE 

04 

0. 1 9 63 96 0 OE 

C4 

0 . 19 64 04 GGE 

04 " 

0. 1964 120CE 

04 

0. 196421 GCE 

04 

0. 1 964 29 C CE 

04 

0. 1964 30CCE 

04 

0. 1964 459 9E 

04 

' 0. 1 9 64 5 4 0 0 E 

04 

0. 1 9 64 62 OOE 

04 

0. 1964 71 OOC 

04 

0. 1 964 7899E 

04 

0. 1964 88 COE 

04 

0. 19649599E 

04 

0. 1 965C000E 

04 " " 

0. 2000 GO 00c 

04 


Yt*:V* 

G. 


73 


FIEND 


YEAR 


0 .24360C0C6 

03 

0. 19580000E 

04 

0 .2 30 ( u u 0 0 c. 

03 

0. 195850C0E 

04 

0.22650CCCC 

03 

0. 1 9589999E 

04 

0.20890C00E 

C 3 

0. 19594999E 

04 

0.1 80499996 

03 

0. 19599999E 

04 

~on6ioococ5c 

<n — 

0 * 1 960 5 6 0 C E 

04 

0.130799 99E 

03 

0. 1 9 6 1 OOCGE 

04 

0.104799996 

03 

0. 1961 5000E 

04 

0 .99300COOE 

02 

0. 1 962 00 0 06 

04 

0-89699999E 

02 

0. 196250CQE 

04 

0 .82699999E 

02 

0. 19630000E 

04' 

0 • 80800COCE 

02 

0. 19634999E 

04 

0. '7 78999996 

02 

0. 196399996 

04 

0.70G00C00E 

02 

0. 19645000E 

04 

0 • 75000000E 

02 

C. 1965C000E 

04 

"0 .870Q0C00E 

02 

0. 1965500GE 

04- 

0.13 lOOCOOE 

03 

0. 196650C0E 

04 

0.1 8600C006 

03 

" 0. 196 7 50 0 0” E 

04 

0.20000C00E 

03 

0. 19684999E 

04 

0 . 1 9000C0CE 

03 

' 0. 196950006 

04 

0*1 6 300C00E 

03 

0. 197050006 

04 

0.142C0C00E 

0 3 

O'. 1971 00006 

04 

0.12800C006 

03 

0. 19715000E 

04 

OTTCTBCTOC 0 0 

03 

0T1 972 49 9 9b 

04 

0 *940000006 

02 

0. 19735000E 

04 

0 • 8 0 999999E 

02 " 

0*1974 50 COE 

04 

0 *750000006 

02 

0. 197500006 

04 

0*75000 0006 

02 " 

0.197550006 

04 


DIURNAL KEAN 


SPECIAL EVENTS ***** 


EARTH IMPACT CUT0FF 

“ " “•**** IMTIA L~ C £ iNDT T I 0 NS 


"SHORT PR INT0UT 

"ANOMALY" STEP (DEGREES) 0.99999999b 01 

-*p- 0 Ger" s t ffst{ kk r 

— 0 i49999999£ 01 
-0*9999 99 99E 01 
— 0 . 20000C006 02 

0. 

0* 


PERIGEE RADI US UK) 
0.677800006 04 
0 . 65780000E 04 

0 . 

0 . 

0 . 
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APOGEE, PFRIGFC,MAJ2R AXIS, AND EARTH RADIUS(KM) 

AP 2G E E , P C R 1 G E C , M A J 0 K AXIS RATES! KM / DA Y ) MASS ( KG J 
AS CONDI I4,G NODE , ARGUMENT PE PCRIGIUDCG) 

N ij li E V Pc R f G EC KCGRt SS I PH * RAT ESI GEG/DAY ) " 

PERIGEE VELCC 1 TY EKM/SEC J 
ORBITAL PERIOLMMIN) 

LIFETIME SPENT ( C R f < I 1 AND DAY) 

RHi) ( KG/M 3 I i EIIUNIUESS). RIPEKG AND RIPAPG(KM) 


A 

0 « 6698 717 8b 

G4 

P 

0.6538 A 161 C: 

04 

AXIS C. 66186670 E 

04 

RADIUS 

0*6 37 34720E 

04 

AD CT * 

-0.2G1722 9 ?E 

02 

PDOT - 

-0 . A 0069964 L 

01 

AX 102 T -0 . 1 2039 644 E 

02 

MASS 

0.60399999c 

C4 

NUDE 

0 • 8 1 A 0 0 0 0 0 E 

02 

ARGP 

0 . 604069 99C 

02 

D;i:;DE -0.7330C376E 

01 

DAPvGP 

0.1 11644 4 4E 

02 

VPERIG 

0.7G563969C 

01 

PLR ICC 

0.893103 A 6E 

02 

0 R 3 I T C . 


TIME 

0. 


RHtf 

0. 1 00 1 926 I E ' 

-08 

E I 

0.1211000CC* 

-01 

RIPE RG C. 16281848E 

0* 

RIPAPG 

0.323 12018E 

03 

A 

7)T6“3 6 8 71781“ 

~04~ 

~P 

0 . 6 3 69 1 7 7 3 L 

04 

AX I S 0.636894 7 5~ C~ 

04 

* R AG res* 

11V37 24 37 3E 

’C4* 

ADCT - 

-0.45995754C 

1 1 

PDJT - 

0 .46G00736C 

1 1 

AX I 0 . J F — C . 4 5 9*9 6 ? 4 5 E 

LI 

MASS 

0 . 6C3 9999.9E 

04 

NODE 

0.51 l 7 4 5 7 8 E 

02 

A Ro P 

0. 1061 2672E 

03 

Di'l/DE -C.84419679E 

01 

OARGP 

0 . 1 27 69 56 7E 

02 

VPERIG 

0.7911651 6E 

Cl 

PERIOD 

0 . 64 3062 4 8 f 

02 

SR8I T 0.6C625867E 

02 

T I ME 

0. 37282697c 

GL 

RH0 

0.12254324c 

01 

El 

*0 . 36C66525E- 

-C4 

R I Pc RC-C . 596 8 5 66 8 £ 

01 

RIPAPG- 

■C.57626952E 

01 



<1 


— 


EARTH CRB I T TRANSF* 

' RKA T I CN 



... 


- - — - 

- • ■ 


- - - ' 

— 

~ PHTo 


0.2850COGCOOOOOOOOD 02 

OEG 

LAM, 03 

= 

0.8C50000000000000C) 

02 

OEG 

AZFIR 

= 

0. 105GOGOCOOOOOOOOD 03 

DEG 

A 

= 

0. 6378165000000 00 00 04 

KM 

B 

= 

0.63 567839999999 99C 

OA 

KM 

CMEGA 

= 

0. 150AL067050000000 02 

DEG/HR 

'RADIUS 

= 

0.6378165OOCOO0OO0D 04 

KM 

K6RTH 

= 

0. 39860320000000000 

06 

KK3/SLC2 

J 

= 

0. 1623A50000000000D-02' 


H 

St 

0. 5750 CO 0000000 00 00 -05 


D 

= 

0.78750000000000000- 

05 


XG 

= 

0. 

KM 

YG 

X 

0. 

KM 

ZG 

= ' 

0. 


KM ' 

XOG 

' = 

' 0. 

KM/SEC" 

YDG 

* 

0. 

KM/SEC. 

ZDG 

* 

0. 


KM/SEC 

T FM 

= 

0. 

H2URS 


INPUT 

IN 

HCT SYSTEM SH0RT N0LCNG 








POSITICN 

IKM) VELOCITY t KM/ SEC ) 

ANGLES 

l DEG) 





EFP 











“XE ~ 

3 

-0. 3037077883A73387D 

04 

YE 

= 

-0.10461426284968210 

04 

ZE 

0.25059899243364800 

04 

XDE 


0.59572A806592886A0 

01 

YDE 

= 

0. L6205054871575630 

01 

ZDE 

C.3982714918979543D 

01 

PUT 











“XPL 

“5 

’^0730370778834733850 

04 

YPL 


-0. 1C 46 1426284968220 

04 

ZPL 

0.25059899243364790 

04 

XD PL 


0.59796869036366780 

01 

YOPL 

= 

0.18500678161846280 

01 

ZDPL = 

0.410574152536429G0 

01 

EFE 











"XFP 


-Q. 26302 375979548400' 

04 

YEP 

= 

-0.59862 99 57271529LD 

04 

ZEP 

0. L0896e94766029310 

04 

XOEP 


0.5318 I203A2908635D 

01 

YOEP 

* 

-0.31610772620431630 

01 

ZOEP = 

-0.396258088L2588630 

01 

SFE 











XS 

"5“ 

-072 630" 2 37597954 84 OD 

04 

YS 


-0.59862995727152910 

04 

ZS 

C. 10896894766029310 

04 

XDS 


0. 5 754 6A 8 197067 02 AD 

01 

YDS 

* 

-0.33528772146075550 

01 

ZDS 

-0.39625808812588630 

01 

TIME 


-=GZ 


THETA 


-0. 





SFG 

R 


0.66280276151522970 

C4 

GCLAT 

= 

0.94615942917960260 

01 

L3NG = 

0.24628C4560 17632 50 

03 

VS 


0.7749826367686 95 4D 

01 

AZ VS 

= 

0.12135935423781510 

03 

EL VS * 

0.60044204099386370 

00 ' 

~&z — 











R 


0.66288276151522970 

04 

GCLAT 

= 

0.94615942917960260 

0 1 

LJNG = 

G.24626C45601763250 

03 

VE 


0 .7 346894628261 87 5D 

01 

AZ VE 

= 

0. 123294967024507 3D 

03 

ELVE = 

0.72620079920493150 

00 

“«0'E 

- ~ 

•- --- 








.... - 

AXIS 

= 

0.66209031 69 689 64 10 

04 

ECCfcN 

= 

0. 12074748215571460 

-01 

INC 

C. 32615634466220470 

02 

ASueo 


0.81376057355369100 

02 

ARGP 

= ‘ 

0.65866222236963070 

02 

tancm = 

C.9637666968299269U 

02 

6AN2M 


0.95688659639330660 

02 

MAN3M 

= 

0.95000234656844450 

02 



- 

M0E 
AX IS 

. 

0.66185669999999990 

04 

ECCEN 


0. 1?1 lOOCOOOOOOOCOD- 

-01 

INC 

0.32599999999 J99990 

02 

ASN0D 

= 

0.0 1 3999 J99999999 9D 

G2 

ARGP 

= 

0.60406999999999990 

02 

TANOM = 

0. 10180900000000000 

03 

EAN0M 


0. 1G11 28973690977 20 

03 

MAN CM 


0. 10044816955907160 

03 





AUXILIARY CALCULATIONS 


APCGEL = 

0. 3226839084233206D 03 

KM. 

PERIGEE- 

0. 16279243095595980 

C 3 

KM 

PER I CD = 

0.3935^l321409l3dOD 

02 

MIN 

RANGE = 

0.4G580341323003530 04 

KM, 

ALI 

0. 25 1243230921*68 190 

03 

KM 

TP1 TCH = 

0.39386929603 )B23bD 

02 

OEG 

EC V 

-0. 4 64 198448086 72 120-02 

KM/SEC 

EtV 

-0.32166479449530370 

01 

KM/SLC 

MAP CGcE = 

0. 32055284636999o40 

03 

KM 

■KPER'ICE” 

— 07 160 2 51 15362999 94 O' 0 3 

KM ” 

MpErTgd- 

"0.89310 8 4 1 6’ 1 1*5’ L 2 52" D 

C2 

min 

DARGP = 

0 . "l 1 1 7 92 ) 829 6 29 7 v 9 J 

02 

DEG/DAY 


CASNOD = -0. 7393552696386070C 01 DCG/DAY 


Detail Output 



EARTH CONSTANTS 


EARTH SECOND HARMONIC 0 . 1 62 34 A 99 E-02 EARTH THIRD HARMONIC 0. 57500000E- 05 EARTH FOURTH HARMONIC 0. 7e749999E-05 

"BrTh GKAVfl A 1 fCNAL'CCNSTAN I U1 L CMt TERS CUBE U/ S L C ONO S SQUARE 0 I 0 . 39 e6 0 3 1 9 E C6 

EQUATORIAL RADIUS UROMETERS) 0.63781650E OA ELL I PI IC I T Y 0.298300006 03 

BALLISTIC PARAMETERS 


ANGLE 0F ATTACK FUNCTION 

ALPHA ( DEGREES ) ANOMALY (DEGREES) 

_0_. 0. 36000000E 03 

C0EFFICIENT BF_ DRAG FUNCTI0N 

CN ALPHA (DEGREE S) 

0.20000000E 01 0.3600 00 OOE 03 


CDPRIME PERIGEE (KILOMETERS) 

l.OGQCOCOCE 00 0. 

EF FE C T I VE DRAG AREA FUNCTION 
AREA I METERS SOUARED) ALPHA! 0EGREES1 
0.260A OlTOOE"' 0 2 0.360000COE 03 

^ AXlTTMS T ANTS ~~ 

INITIAL MAS SURgGR AMS) 0.6039 9999E OA 

DENSITY PARAMETERS 


M0NTH= O.AOE 01 DAY= 0.806 01 YEAR 0. 1964E OA DAYS ELAPSED SINCE DEC. 31' , 1937 0.22899999E 04 

~l9 59 "ARDC "ATMOSPHERE --- --- 

CensTt y’corre CTlljN 


DC 

PERIGEE (KIL0MET6RS) 






0 . 1 2000C00E- 00 

C.500000C0E 

03 






O.13OO0COOE-OO 

0 . AOOOOO OOE 

03 






' <r.l4200C00E-0d 

0.3499 99 9 9E 

03 






0 • 18400G00E- 00 

0 • 30000000E 

03 






0722000CGCE-00 

0. 279999 99E 

03 






O.275Q0C00E-00 

0. 26000000E 

03 






— Q.3O40Gt0OE-O0 

0 . 25 00 00 C 0£ 

0 3 






0.34000COOE-00 

0.239999S9E 

03 






0 .3&500C00E- 00 

0 . 2 3 OOOOOOE 

03 






Q.42500C00E-00 

0.22000000E 

03 






0.47Q00C00E-0Q 

0 . 20 99 99 9 9E 

03 






0 • 52000COOE 00 

0 • 2QOOCOOOE 

03 






0 . 56300C0CE 00 

0. 1 9 OOOOCCE 

03 






0.62000COOE 00 

0. I 800C0C0E 

03 






0 • 70000000E 00 

0. 16999999E 

03 






0.800C0C00E 00 

0. 1 600CO0CE 

03 






0 . 8 A OOOC OOE 00 

0. 15499999C 

03 






0 . 8 6000 CODE CO 

0. 1 5000000E 

03 






l.OOOCOCOOE 00 

0. 14 5000 OOE" 

03 






l.OOOOOCOCC oc 

0. 







KP 

YCAR 







0 . 2 3A00 COOL Cl 

0. 1 9 58 COOCC 

OA 






0 . 24 OCOCGCE 01 

C. 1 9 60 80 C OF 

OA 






o. i8*;cccccf oi 

'0. 19 68899 Jt 

OA 






0 • 2 6099595L ll 

0. 195S9953E 

OA 






0.29 7COCGCC 01 

0. 19 3 9100 CL 

OA 






0.2 A 169 99 9!' Cl 

C. 1 9 69 20 C .'.r 

UA 






0 . 2 3 tCOCOi'i Cl 

C. 19 39 JO M t- 

L A 






0.2 39 C/-CV 1 r 1 

0. 1 i99A0 ‘0, 

uA 







<1 

<1 



0 72 92 00 CO C E~T 1 

Iff if 959 4~9~ 5 9 E 

oV 

0.31599999E 01 

0. 19596000E 

04 

0.34999999E 01 

0. 19597000E 

04 

0 • 2 A 600C00E 01 

0. 19598000E 

04 

0-289000 OOE 01 

6.“19599000E 

04 

0 • 2 5699999E 01 

0. 19599999E 

04 

0 • 2 3 1 99999E Ol 

0* f9601006C 

04 

0 -.2 44 000 OOE 01 

0. 1960 20C0E 04 

0"^34199999E 0 1 

C • 1960300 0E 

04 

0.27899999E 01 

0. 19604000E 

04 

~0*29200000E~ 01 

Ol 19605000E 

04 

0.27100C00E 01 

0 . 1960 599 9E 

04 

0 *2 7b0"0"CT0Ofc 01 

071960*9996 

04 

0 *322999996 01 

0. 1 96080 OOE 

04 

0T34400C00E~~0i 

0.196090C0E 

04 

0.24900C00E 01 

0. 19610000E 

04 

0“;2270OCOOE 01 

0.196110006 

04 

0.23199999E 01 

0.1961 1999E 

04 

0.22899S996 01 

0. 1 961 30 COE 

04 

0.23999S99E 01 

0 • 1961 4000E 

04 

0^26899999E 01 

0* 19615000E 

04 

0.22600000E 01 

0.19616000E 

04 

— <Ti21799S99E 01 

0*196169996 

04 

0.1 8499S99E 01 

0.19617999E 

04 

0 * 19 19999 9 E 01 

0.1961 9000E 

04 

0 • 14900000E 01 

0.19620000E 

04 

“ (T*17299999E~0l 

C. 1962 10 OOE 

04 

0 • 1 8099999E 01 

0.19622000E 

04 

0T23 100C00E" 0 1 

' 0. 19622999E 

04 

0*1 6000000E 01 

0. L9623999E 

04 

Q.21799S99E Ol 

6. 1962 5000 E~ 

04 

0.26199999E 01 

0. 196260COE 

04 

0V29399999E01' 

" 0. 1962 7000E 

04 

0 .308000006 Ol 

0. 196280C0E 

04 

0 720 1 00 C OOE Of 

"0. 19628999E 

04 

0*1 7500000E 01 

0* 19620000E 

04 

0.172OOCOOE 01 

0* 1963 1000E 

04 

0*1 5400C00E Ol 

0 • 1963 1200E 

04 

0 *150999996 0 1 ” 

0* 196321 OOE 

04 

0*1 8600C00E Ol 

0. 19632900E 

04 

0*208000006 0 1 

0. 196338C0E 

04 

0 *205999996 01 

0.1 96346 OOE 

04 

0^223000006 01 

6 • 1963 53 99E 

04 

0.23499999E 01 

0. 19636200E 

04 

^0*32600C00E 01 

0.196371C0E 

04 

0*21 999999E 01 

0. 1 963 79 OOE 

04 

0-20200C00E Cl 

0. 1 9 63 88 OOE 

04 

0 • 1 9800C00E Cl 

0. 1 963 96 COE 

04 

0T2CT599999E 01 

G r . 1964 04 COE 

"04 

0.22099599E 01 

0. 1964120OE 

04 

C.21600T)00E 01 

0.196421 COE 

04 

0.22499S99E Ol 

0. 1 964 29 0 OE 

04 

0.18099999E 01 

0. 1 964 38 0 OE 

04 

0*17 2 99 9 99E 01 

0. 1 9644599C 

04 

6.189000006 Ol 

"0. i 9 64 54 OOE 

04 

0.1 6800C0CE 01 

0. 1 964 62 0 OE 

04 

0.1^800 CO CE 01 

0. 1 964 71 COE 

04 

0. 16700 CtO OF 01 

0. 1964 78 9 96 

04 

‘ 0 . 90000 c occ .cc 

' 0 . "1964 88 C OE 

04 

0.7700000CE 00 

0. 19649599E 

04 

6 . 24 9999990 Of 

“0. 1 9 65 00 COE 

04 

0.249999990 01 

0. 20000000E 

04 

FT EN 

Yt AR 


0 . 

0. 



78 



FTENB * 

G . 24 36OC00E 03 
" 0.23G70C00E 03 
__0 *2 2650C00E 03 
0 • 20 890C00E 03 
0.18049899E 03 
0.16100C00E 03 
0*1 3079 999E 03 
0 • 10 4 7 9 9 9 9 E 03 

G.99300C00E 02 

0 • 8 9 6 9 9 9 9 9 E 0 2 
0 J .82699999E 02 
0 *80 800 COO E 02 
_0_.77899999E 02 
0.70000COOE 02 
_0 ^ 75000C00E 02 
O.87000C00E 02 
oaaioocooE 03 
6*i860bC00E 03 
0.20000C00E 03 
0 • 1 9000000E 03 
_0 * 16 3 0 0 C 0 C E 03 
" b.i4200C0bE 03 
0.12800C00E03 
o.ioebocooE 03 

JEK94000C00E 02 
0 • 8099 99 9 9E 0 2 
0 .75Q Q0C0QE 02 
O.750OOCO0E 02 

OIUWAL MEAN 

~ » S PEC I All E V ENT S * * V 

€ ART H I M FAC T C UT 0 F F 

. ... CBNDI 1 1 0NS 

DETAIL PRINT0UT 

AN2MALY S TEP ( DEGREE S > 0.99999999E 01 

PER IOEE RAOlTiS (KM) 
0.67780000E 04 
0-65780000E 04 

0 . 

0. 

0 . 


AP0GEE STEPS! KM > 
-0.49999999E 01 
-0.999999 9 9E 6 l 
-0 . 20000C00E 02 

o. 

o. 


YtAR - * 

0. 1958 OOOOE 04 
0- 19585000E 04 
0. 19589999E 04 
0. 19594999E 04 
0.19599999E 04 
0. I960 5000E 04 
0. 19610000E 04 
0. 1961 50G0E 04 
0.196200COE 04 
0.19625000E 04 
0 . 1963 00 C OE 04 
0 . 1 9 6 3 4 9 9 9 E 04 
0.19639999E 04 
0.19645000E 04 
0.19650000E 04 
0. 19655000E 04 
0 -± 966500 °E 04 
0- 19675000E 04 
0.19684999E 04 
0.19695000E 04 
0. 19705000E 04 
0 . 1971 OOOOE 04 
0.1971 5000E 04 
0.19724999E 04 
0.19735000E 04 
0. 19745000E 04 
Q. 197 50000E 04 
0.1975 5000E 04 





79 



00 

o 


APOGEE, PERIGEE, MAJOR AX1S,AND EARTH RADIU5IKM) 
AP0GEE»PERIGEE,MAJ0R AXIS RATES! KK/DAY) MASS(KG) 
ASCENDING N0DE, ARGUMENT CF PERIGEE(DEG) 

"Rau e'V pEimsTE" Rtir^e stun k at e'sTu'e c/day j 

PERIGEE VELOCITY IKK /SEC) 

0RBI7AL PEK10DININ) 

LIFETIME SPENT l 3RD I T AND DAY) 

RH 0 ( KG/M 3 ) i EUUNITLESS). RIPERG AND RIPAPG(KM) 


A 

0 ■ 6698 7 l 7 8E 

04 

P 

0.o5384t6lE 04 

AXIS C .661 85670E 

04 

RADIUS 

0.63734720E 

04 

AD0T - 

-0.20172292E 

02 

PD2T - 

-0 . 4 0069964 E 01 

AX IO0T-O. 120896446 

02 

MASS 

0.60399999E 

C4 

N0OE 

O.0LAOOOGGE 

02 

ARGP 

0.60406999E 02 

DN0DE -0.73808376E 

01 

DARGP 

0.1 1164444E 

02 

VPERIG 

0 . 7856 396 9E 

01 

PERI0D 

0.89310846E 02 

0R81T C. 


TIME 

0. 


RH0 

0.1C019261E- 

■08 

El 

0.1211 00008-0 1 

RIPERG 0. 16281848E 

03 

RIPAPG 

0.32312018E 

03 

“S 

0.6688?l78fc" 

04 

P 

0.65363847E 04 

AXIS 0.66125512E 

04 

RADIUS 

G.63729899E 

C4 

AD0T - 

-0.21854386E 

02 

PD0T - 

-0 . 4 53668 866 01 

AX ID0T-C. 1 3195537E 

02 

MASS 

0.603 99999E 04 

N0OE 

0.7774 1I00E 

02 

ARGP 

0.65941543E 02 

DN2DE -C.74041695E 

0 l 

DARGP 

0.1 U 99737E 

02 

VP Eft I G 

0.7855C523E 

01 

per i 00 

0.891891 11E 02 

0R8IT C.76963580E 

0 1 

TIME 

0.47668 84 3t- 

■00 

RH0 

0. 10763352E- 

■08 

EI 

0 .115184846-01 

RIPERG 0.1610*33146 

03 

RIPAPG 

0.31368445E 

03 

A 

"0 • 66?8 7 l78E 

04 

P 

0.653426486 04 

AXIS C. 660649136 

04 

RADIUS 

0.637 26 1I8E 

04 

AD0T * 

-0.2383635 9E 

02 

POST - 

-0.51580800E 01 

AX ID2I-C. 14497220E 

02 

MASS 

0.60399999E 

04 

N0 DE 

0.74353144E 

02 

ARGP 

0.71 0662 5LE .02 

DN2CE -0.74277838b 

01 

DARGP 

0.1 12 35456E 

02 

VPERIG 

0.78538 398E 

01 

PER 100 

0 . 89066537 E 02 

0R3IT C. 147854576 

02 

TIME 

0.9 15 16 17 16 

QQ 

~RH 0 

0 . 1 1652293E- 

-08 

E I 

0 • 1 0932652E-0 1 

RIPERG C. 159110906 

03 

RIPAPG 

0.3C4 12 115E 

C3 

A 

0.66687178E 

04 

P 

0.653205806 04 

AXIS 0.66003678E 

04 

RADIUS 

G. 63723329b 

04 

AD0T - 

-0.26I87366t 

02 

POST - 

-0 . 5 889 7937E 01 

AX IU2T-0. L6038579E 

02 

MASS 

0.60399999b 

C4 

N0DE 

0. 7I236986E 

02 

ARGP 

0. 757798 30E 02 

DNL'DE -C.74516 790E 

01 

OARGP 

0.1127 16006 

02 

VPERIG 

0.78527560E 

01 

PER 1 00 

0 . 8894 3 1 37E 02 

0R8IT C.21272498E 

02 

TIME 

0.1 3158 40 7C 

01 

RH0 

0.127207516- 

-08 

EI 

0. 10352410E-01 

RIPERG 0. 15705157b 

03 

RIPAPG 

0 .294440 l 8E 

03 

A 

0.66587L78E 

04 

P 

0.65297680E 04 

AXIS 0.65942429E 

04 

RAC I US 

0.637214246 

C4 

AD0T ■ 

-0.29008224E 

02 

PO0T - 

-0 .675914566 01 

AX [QSr-Q. 178836&4E 

02 

MASS 

0.6039 7999E 

G4 

N0DE 

0.68391461E 

02 

ARGP 

0 . 80084042 E 02 

ON ODE ~0 . 74 7 5850 IE 

0 l 

DARGP 

0. 1 1308163E 

C2 

VPERIG 

0. 7851791 AE 

01 

PER I0D 

0.88818957E 02 

0RHIT Q.2716L858E 

02 

TIME 

0 . 167909556 

Cl 

RH 0 

"O'. 14009906E- 

-08 

EI 

0 . 9777455 1 E-02 

RIPERG C. 15486291E 

03 

RIPAPG 

0.28465612E 

U3 

A 

0 • 6648 7 1 7 8E 

04" 

P 

0.65273999E 04 

AX(S C. 638805866 

04 

~ TaoTus 

0 . o 37 202656 

C4 

AD0T ■ 

“0 * 3243 1474b 

02 

POST 

-0 . 780043 55 1 01 

AXID0T-O.2OL 15954E 

02 

MASS 

C.60399999C 

C4 

N0DE " 

0.658 1 A 3 1 2c 

0? 

ARGP 

0 .839823026 02 

DNJDE -0.750028966 

01 

OARGP 

0. 1 1345130C 

02 

VPERIG 

0.78509342E 

01 

PERIOD 

0 . 6869404 3E 02 

0RaiT C. 324620376 

02 

TIME 

0.20055498b 

Cl 

RH0 ■ 

0 • 1657 1679E' 

-08 

EI 

0 .9207 4 1 1 0E-02 

RIPERG 0. 15255591E 

03 

RIPAPG 

0.2747861 3E 

C3 

~A 

0.6638717 BE 

04 

p 

0.63249590E 04 

~~ AXTS C .6 58 18 3 8 4IE 

~04T 

raoTUs' 

“b'.637T970'3T 

~G4 

AD0T 

-0.36582107E 

02 

PD0T 

-0 . 90565055 E 01 

AX IU0T-C.228193O6E 

02 

MASS 

0 .603 99999E 

04 

N0DE 

0.63501654E 

02 

ARGP 

0 . 87480488E 02 

DNSOE -0.75249887E 

01 

DARGP 

0.11382490b 

C2 

VPERIG 

0.70501 7 09L 

01 

PlR I 00 

0 . 8 85684 56E 02 

0R8IT 0.3718 9 028E 

02 

TIME 

0 . 229 62C75E 

Cl 

RH0 

Q . 1 74 7 2959c- 

-08 

EI 

0.8641 8749E-02 

RIPERG C.15014362E 

03 

RIPAPG 

0.264 B4796E 

03 

“A 

~o; 6 " 62 ~ 8 rir 8 t" 

“04” 


~ 0/6 5 2 2 4 5 04 1 04 

“ A"X I S~T76 57” 5 584 1 E 

~Q~4 

RAD l US 

"0.637 195906 

“0‘4“ 

AD0T 

“0 . A 16684 1 6C 

02 

PDGT 

“ 0 . 1 0 5 8 4 6 7 9 1 02 

AX I OCT -0.261265 4 7E 

02 

MASS 

0.603979996 

04 

NEDE 

0 .61444640b 

02 

ARGP 

0.90391979E 02 

DNIDL -0.75499392c 

0 l 

DARGP 

0. 1 14 20231 E 

02 

VPERIG 

0.7B494U92E 

01 

PERIOD 

0. 6844 22 4 7 L- 02 

0RMT C. 413662966 

02 

I I ME 

0.25528400C 

01 

RH0 

0.198017C5E- 

-08 

’ 61 

0.808044816-02 

RIPERG C.14763916E 

03 

RIPAPG 

0.2540 3864E 

03 

"A 

~0';661 8 7L 7 8b 

04' 

-p— 

”0/6 5 1 9880 7 l 04 

AXIS 0 76 5 6 9 29 9 3 L 

04 

RADIUS 

0 .0371 9 793c 

04 

ADST 

-0 . 4 800660 06 

0? 

POST 

-0. 1247252 76 02 

AX IC2T-C.30237567E 

02 

MASS 

0.603999996 

C4 

NS LE 

0.596 3 2 7 3Cl. 

0? 

ARGP 

0.9 333271 liL 02 

UN. .01. -C. 7 3 751306b 

01 

DARGP 

0. 1 1458337E 

02 

VP LR I G 

0. 784687571 

01 

PL R K'D 

0.883154806 02 

CHS IT 0.45018393C 

02 

T l MC 

0.2 776831 0b 

01 

RHSi 

0.226 7 551 Cl 

-08 

l I 

0 . 752264OGL-02 

R 1 Pi. RG 0. 14 50560 2 6 

03 

RIPAPG 

u. 2 44 033316 

C 3 




0*66087 I 78£ 

04 

P ~ 

0.6517 256 IE 

"04 ~ 

AXIS ‘ <f. 65629 86 9 E " 

‘04* 

RAOiCs 

0.6 37 20200E 

04 

AD0T - 

-0 • 5597 3225t 

02 

PD0T 

-0.14833832E 

02 

AXID0T-O.354O3528E 

02 

HASS 

0 . 603 99999E 

04 

N0OE 

0 . 58054 79 5E 

02 

ARGP 

0.95719543E 

02 

ON 006 -0. 76005523E 

01 

* OARGP 

0.1 1496790E 

0 2~ 

VPERIG 

0.78483187E 

01 

PERI0O 

0 • 88 1 8 82 L 8 E 

02 

0RBIT C.48174605E 

02 

TIME 

0.29701240E 

01 

RH0 

0 • 2625 396 7C- 

-08 

El 

0 .6960 0004 E- 

-02 

RIPERG 0 • 1424066 7E 

03 

RIPAPG 

0. 234 78 46 6 E 

03 

A 

0.65987178c 

04 

P 

0.6514 582 7 E 

04 

AXIS 0.65566503E 

04 

RAO I US 

0.63720719E 

04 

AD0T -0 • 66103C96E 

02 

PD0T 

-0. 1781 9200E 

02 

AX ID0T-C. 41961 148E 

02 

HASS 

0. 60399999E 

04 

N0DE 

0 • 5669690 AE 

02 

ARGP 

0.97773523E 

02 

DN0OE — C .76261 92 7E 

01 

OARGP " 

“0.1 1535574E 

02 

VPERIG 

0*7847807 3E 

01 

PER I 00 

0 . 88060527 E 

02 

0RBIT 0 • 50869267E 

02 

TIME 

0 • 31349 1 1 1 E 

01 

RH0 

0 .3075 808 3£- 

08 

El 

0.64 1601 02 E* 

-02 

RIPERG 0.1 *197027 5E 

"0 3 

RIPAPG 

0 .224 72332E 

03 

A 

0 • 65887 I78t 

04 

P 

0 *65 1 1 8655E 

04 

AXIS 0 *655029 1 6E 

04 

RADIUS 

0.637 2128 IE 

04 

AD0T - 

-0 * 79264738E 

02 

PD0 T 

-0 .21 7025 1 5 E 

02 

AX 10 0 T—C .50483626E 

02 

MASS 

0 .6 03 99999E 

04 

N0 UE 

0. 5554322 2£ 

02 

ARGP 

0.9951 86 11E 

02 

DN2DE — 0 .7652044 l E 

01 

OARGP 

0.1 1574678E 

02 

VPERIG 

0.78473331E 

01 

PERIOD 

0 . 8 7932458 E 

02 

0R8IT 0.531 37720E 

02 

TIME 

0.327343236 

01 

RH4J 

0.365045. 9 3 E - 

-C8 

El 

0 .5866326 1 E- 

-02 

RIPERG © . 1 3695270E 

03 

RIPAPG 

0.2 1465692E 

03 

A 

0 * 657 87 17 8E 

04 

P 

0 .6509 1074 E 

04 

AXIS C. 65439 12 7E 

04 

RAO I US 

0.63721834E 

04 

AD0T - 

-0.96654691c 

02 

POST 

-0 . 26856437E 

02 

AXI03T-0.61755563E 

02 

*ASS 

0 . 60399999E 

04 

N0OE ' 

0 . 545 7 784 5E 

02 

ARGP 

0. 10097887E 

03 

DN20E — 0 . 7678 1022E 

01 

OARGP 

0.1 16 14094E 

02 

VP ER I G 

0.7846891 IE 

01 

PERI0O 

0 • 87804039E 

02 

0R0IT 0.550173S9E 

02 

TIME 

0.33880452E 

01 

RH0 

0.4395791 98- 

-08 

El 

0 . 53 18 7 1 03 E- 

-02 

RIPERG 0.134I6217E 

03 

RIPAPG 

0.20459 143E 

03 

A 

0.65687178E 

04 

P 

0.650630736 

04 

AX IS 0 *65375 12 5E 

04 

RADIUS 

0 .6 37 22 347E 

04 

AD0T - 

-0. 120245L5E 

03 

PD0T 

-0 . 3394000 1 E 

02 

AX IO0T-C. 77092 577E 

02 

HASS 

0.6C399999E 

04 

N0 OE 

0.53783459E 

©2 

ARGP 

0.10218047E 

03 

DNCDE -0.77043711E 

01 

OARGP 

0.1 1653829E 

C2 

VPERIG 

0.7846480CE 

01 

PER 100 

0.87675259E 

02 

0R 8 1 T 0 .56546 76 3E 

02 

TIME 

0 • 348 1 162 IE 

01 

RH0 

0* 53830783E- 

-08 

El 

0. 47732574 E- 

-02 

RIPERG 0*13133 20 2E 

03 

RIPAPG 

0.194530586 

03 

A 

0 .6548 717 8E 

04 

P 

0 . 65005 544 E 

04 

AXIS 0.652 46 3 6 1 E 

04 

RADIUS 

0.6 37 232771“ 

C4 

AD0T - 

-0 . 20 1 29 74 BE 

03 

PO0T 

-0/59263927E 

02 

AX IO0T-O. 1 3028070E 

03 

MASS 

0.60399999E 

04 

N0DE 

0.52502G15E 

02 

ARGP 

0.104118826 

03 

0 N G L3 E - 0 .775760346 

01 

OARGP 

0.1 17 34 350E 

02 

VPERIG 

0.78457771E 

01 

PERIOD 

0.8741 6356E 

02 

0R ti I T C.58709557E 

02 

TIME 

0.361 24 56 3E 

01 

RH0 

0.86214 39 7E - 

-08 

El 

0.36908918E- 

-02 

RIPERG 0. 12552423E 

03 

RIPAPG 

0. 1 74 A 1 96 1 E 

C3 

A 

0.65287 I78L 

04 

P 

0. 6494 41 85 E 

04 

AX IS C. 651 1568 IE 

04 

RACIUS 

0.6372 3 896E 

~C4~ 

ADflT - 

-0.39824621E 

03 

PD0T 

-0.12856697E 

03 

AX I03T— C.26340659E 

03 

MASS 

0.60399999E 

04 

N0DE 

0. 5173125 5E 

02 

ARGP 

0. 10528468E 

03 

ON 0OE -C.78121534E 

01 

OARGP 

0. 1 18 16864E 

02 

VPERIG 

0.78453854E 

01 

PER 100 

0.8715 38 62 E 

02 

0R8IT 0 ■ 599 2 1 8 26 1 

02 

TIME 

0. J685Q271E 

OL 

RH 0 

0.15900792E- 

07 

El 

0 . 2633 72 63 E- 

-02 

RIPERG G.L1935028E 

03 

RIPAPG 

0.15434387E 

C 3 

A 

0.65087178E 

04 

P 

0.64 87516 9E 

04 

AXIS C. 64981 174E 

04 

RADIUS 

0.6372 42 2 9 E~ 

_ C 4 

AD0T - 

-0.11186879E 

C4 

PU0T 

-0.415311 30E 

03 

AX ID0T— 0.76699963E 

03 

MASS 

0.60399999E 

04 

N0 OE 

0 .5133892 7t 

02 

ARGP 

0.1 058 78 I 3 E 

03 

DN0DE -C.786S8589E 

0 1 

OARGP 

0. 1 1902638E 

02 

VPERIG 

0.7845654CE 

01 

PER 100 

0.86883955E 

02 

0RRIT 0 . 604 63034 E 

02 

TIME 

0.37184814E 

01 

RH0 

0 • 39444 1 6 IC- 

-07 

El 

0-163131 30E- 

-02 

RIPERG 0 . 1 12426G8E 

03 

RIPAPG 

0.1 34 30 10 2E 

03 

A 

0.6488 71 78L 

04 

P 

0.64790406E 

04" 

AXIS C . 64 8 38 792 1 

04 

RADIUS 

C .6 37 24 35 IT 

04 

AD0T - 

-0. 705842796 

C4 

PD0T 

-0.366145516 

04 

AX IO0T-O .535994 16E 

04 

MASS 

0 . 603 99999E 

C4 

N0DE 

0.51198246C 

02 

ARGP 

0. 106090 9 3E 

03 

DN.UE -0.79295006E 

01 

OAkGP 

0.1 1994366E 

02 

VPERIG 

0.78473240E 

01 

PER 100 

0. 8659855 IE 

02 

0R8IT C.6060829t2E 

02 

TIME 

0.37272 L70E 

Cl 

RH 0 

0. 184883896- 

-06 

E I 

0.74624963E- 

-03 

RI PERG 0. 103938236 

03 

RIPAPG 

0.1 1428 L74E 

C3 

A 

0 .'646871 7 8C 

04 

P 

0 .6465474 ? E 

04 

AX IS C-646709626 

04 

‘ RADIUS 

0. 63724370 E 

_ C4~ 

ADOT - 

-0.1395365 LE 

06 

PD0T 

-0 . 1 1060025E 

06 

AX ID0T-C . 1 ?5 1123Gb’ 

06 

MASS 

0.60399999E 

04 

N0UE 

0.511 7577 CE 

02 

ARGP 

0. 1061 24 91 L 

03 

0N:*DE -0.8001 78601: 

0 1 

OARGP 

0.1 21 03708E 

02 

VPCR 1G 

0.785 3613 3E 

01 . 

PLR10D 

0 ■ 66 26 2 54 OE 

02 

0RR1T 0 • 606 2 5 V 3 4 E 

02 

T I Mfc 

0.372 P2259E 

01 

RH0 

0.264605B7E- 

-05 

E I 

0 . 2 507 4 34 4 £ * 

-03 

RIPERG 0.9036 4 990E 

02 

RIPAPG 

0.9 42 73559E 

C2 

A 

0^644871786 

C4 

P 

0 ! 64 4 7 80 39 E 

04 

' AX IS " C • 6 4 4 8 2 6 3 4 E 

04 

' RADIUS' 

0.63724373E 

C4 

AO 0 1 - 

-0. 348 565 4 6 E 

07 

PDJT 

-0.32746 7751 

07 

AX Il);:T-0. 33C01666L 

07 

MASS 

0 . 6 C 3 9 9 99 9 C 

C4 

N.J OE 

0.511 74 ( Jv,6 

0? 

ARGP 

0.1 061 2664 E 

0 3 

DII/DL -C.00G39223C 

0 l 

OARGP 

0.1 22 2 7 94 OE 

02 

VP uR I G 

0. 7 86 3 of 0 4 u 

01 

PlR 100 

0 . C 5 8 8 6 j 0 6 f 

02 

SIR'il r C. 606238286 

02 

T I ML 

0. 372C26/3C 

01 

RHi; 

0.6 '21 t.'.Vjf- 

-04 

L I 

0 . 704 7 )09*» C 

-04 

RIPERG C. 72692 382E 

02 

UI PAPG 

0. 7 4 266 54 0 6^02 


8i 



00 

to 


A 

0 ■ 64 2 6 7 1 7 8E 

C 4 

V 

6 .6428 4 9 43 fT 

“oT“ 

*~AXTS~* “o .64 2 8 <Td*62E 

04 

‘radTuT 

T.T 3 7 2 V 37* 36 

04 * 

AD CT - 

-0 . 3604 065 4 C 

08 

POET • 

-0. 3556e516E 

08 

AX I03T-C.35804585E 

08 

MASS 

0 *603999996 

04 

NODE 

0*51174 58 3E 

02 

ARGP 

0.I0612672E 

03 

DM COE -C.81708138E 

01 

DARGP 

0*1 23 59 383E 

02 

VPERIG 

0. 7875260 3E 

01 

PER I CD 

0.65493578E 

02 

0R8IT 0 . 60625864E 

02 

TIME 

0.37282695E 

01 

RHB 

0.72545402E- 

■03 

E I 

0.17350844E- 

-04 

RIPERG 0 . 5 33 7 1032E 

02 

R IPAPG 

0.54259277E 

C2 

A 

0.64087178E 

04 

P 

0.64086I28E 

04 

AXIS C.64086653E 

04 

RADIUS 

0 . 637 2437 3E 

04 

ADOT - 

-0*5752221 CE 

09 

PD0T 

-0.57563592E 

09 

AXID0T-C.57542901E 

09 

MASS 

0 . 6 03 99999E 

04 

NB OE 

0.5I174579E 

02 

ARGP 

0 . 10612672c 

03 

DN2D6 -0 • 8260 1 9096 

01 

DARGP 

0*124945776 

02 

VPERIG 

0 . 7 88 74 36 OE 

01 

PER 100 

0 - 8 509 6096 E 

02 

ORBIT 0.6C625867E 

02 

TIME ) 

0.372 82697E 

01 

RHO 

0. I0391000E- 

-01 

E I 

0.819527146- 

-05 

RIPERG C. 334818116 

02 

R I PA PG 

0*342519536 

02 

A 

0.63887178E 

04 

P 

0.63887154E 

04 

AXIS C.63887166E 

04 

RADIUS 

0.6 37 243736 

04 

AO0T - 

-0 *1291361 3E 

11 

POST 

-0* 1271 3984 E 

11 

AX ID2T-C. 12813799E 

11 

MASS 

0.60399999E 

C4 

NODE 

0.51174 57 8£ 

02 

ARGP 

0.10612672E 

03 

DNcDE -C.83508641E 

01 

DARGP 

0.126 31 73 IE 

02 

VPERIG 

0*7 899682 5E 

01 

PERI0O 

0 • 84 6990796 

02 

ORBIT 0 • 606 25867E 

02 

TIME 

0.372 82697E 

01 

RHB " 

0 * 2438236 3E- 

-00 

t 1 

0 . 1 8629493 E- 

-06 

RIPERG 0.I3577026E 

0 2 

RfPAPG 

0 • I 42 4462 9E 

02" 

A 

~0763687T7 8E 

04 

P 

0.63691773E 

04 

AXIS 0.636894756 

04 

RADIUS 

0-637 24 37 3E 

04 

ADOT * 

-0.459957546 

11 

PD2T 

-0 . 460007 38 E 

ll 

AX ID2T-C.45998245E 

11 

MASS 

0.6 G399999E 

04 

N0D6 

0 . 5 1 1 74 57 8E 

02' 

ARGP 

0.106126726 

03 

DNilDE -C.84419879E 

01 

DARGP 

0.12769567c 

' 02 

VPERIG 

0.79116516c 

Cl 

PERIOD 

0 . 84 306248E 

02 

0R6IT 0.60625867E 

02 

TIME 

0*3 72 32 69 7E 

01 

RHB 

0*122543246 

01" 

El 

-0 • 36066525 £■ 

-04 

RI PE RG-C. 5 96 85668E 

or “ 

RIPAPG- 

-0 • 57626952E 

01 

A 

0.63687178E 

C4 

P 

0 *6369 1773E 

04 

AXIS C.63689475E 

04 

RAOIUS 

0.63724 37 3E 

04 

AD0T 

-0.45995754E 

11 

PDOT 

-0 .460007 38E 

11 

AX IDOT -0.45998 2-4 5E 

11 

MASS 

0 .603999996 

04 

NODE' 

0*511745786 

02 

ARGP 

0 . 1061 2672E 

03 

OriODE -0.84419879E 

01 

DARGP 

0.127 69567E 

C2 

VPERIG 

0 *791 16516E 

01 

PERIOD 

0.84306248E 

02 

ORBIT 0 *606258676 

02 

TIME 

0.37282697E 

01 

RH0 

0*122543246 

01 

El 

-0.36066525E- 

-04 

RIPERG-Q.59685668E 

01 

RIPAPG 

-0.57626952E 

01 



EARTH CRBIT TRANSFORMATION 


“PH10 = 

0.2 05000000000000 CD 

"02 

DEG 

LAM 0 8 = 

0. 8C50000000000000D 

02 

DEG 

AZFIR = 

0. 10500000000000000 

03 

DEG 

A 

0.6378 165 00 00 00 CO 00 

04 

KM 

B 

0. 63567839999999990 

04 

KM 

CMEGA = 

0.1S041C6705000000D 

02 

DEG/HR 

RADI US- 

0.63761650000000000 

04 

KM 

KERTH = 

0. 39860320000000000 

06 

KM.3/SLC2 

J 

0.16234500000000000- 

02 


H 

0.5750COOOOCOODOOGO- 

05 


D 

0.78750000000000000- 

05 


XG 

0 . 


KM 

YG 

0 . 


KM 

ZG 

0 . 


KM 

XOG 

0.* 


Krt/SEC**' 

YOG 

C. 


KM/SEC 

ZDG 

0 . 


KM./SEC 

TFM 

0 . 


HSURS 


INPUT IN K£T SYSTEM SHORT NCLCNG 
PC SI 7 I CN ( KM ) VELCCITY (KH/SCC) 
EFP 

XE = "-0. 3037077883473387D 04 
XOE = 0.5957246 06 59 2886 40 01 


ANGLES (DEG) 


-0. 1046142628496821D 04 
0. 1620505487157563D 01 


0.25059899243364800 04 
0. 39827 1491897 9 543D 01 


-0.30370778834733850 04 
0.59796869036366780 01 


-0. 1046 1426284968220 04 
0. 18500678161846280 01 


0. 25059899243364790 04 
0.41057415253642900 01 


-0.26302375979548400 04 
0. 531812034290863 5D 01 


-0.59862995727152910 04 
-0.31610772620431630 01 


0. 10896894 76602931D 04 
-0.39625808812588630 01 


-0.26302375979546400 04 
0.57546481970670240 01 
- 0 . 


-0.59862595727 162910 04 
-0 .335 287721468 755 50 01 
- 0 . 


0.10896894766029310 04 
-0. 3962S80C6125G863D 01 


0.66288276151522970 04 
0^.77490263676869540 01 


GCLAT = 0.94615942917960260 01 

AZ VS = 0. 1213593542378 1510 03 


0.24628C4560176325D 03 
C. 68844204099386370 00' 


0.66288276151522970 04 
0.73468946232618750 01 


GCLAT = 
AZ VE = 


0.94615942917960260 01 
0. 12329496702450730 03 


0.24628045601763250 03 
0. 72620079920493150' 00 


«0E ‘ " 

AXIS = 0.662090316968964 ID 04 ECCEN = 
*A$Nt)D = 0.8137605735 536 9 1 00 02 AKOP* =* 
EANCM = 0.95688659639330660 02 MANCK = 


0^_1 20 74 74 82 155 7 1 460-0 1_ INC 
0.6 53 66 2222 3 696 3 0*7 0 02 T A N 0 M = 

0.9 50 002346 56 84445D 02 


0.32615834466220470 02 
0.96376 68 968 2*992690 02 


MCE 

AXIS =" 
ASN SD = 
‘EANCM = 


0.66185669999999990 04 
0.813999 999999 9 9 9 9D__0 2_ 
0. 1C11 289 73-6909 7 7 20 03 


ECCLN = 0. 12HOOCOOOOOOGOOO-01 

ARGP __= 0. 6C406999999999990 02 

'MAN 2 M =" * 0.1 00*4 4816955 907*1*60 0 3 


INC = 0.32599999999999990 02 

TANCM = 0.10180900000000000 03 
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SECTION IV: GRAPHIC METHOD FOR LIFETIME PREDICTION 


A lifetime model has been presented for making reasonably accurate 
predictions of orbital lifetime. Primary factors influencing earth orbital 
satellite lifetimes have been included. A method has been devised to provide 
a means of graphically predicting lifetime based on this model. This graphic 
technique allows a quick prediction of lifetime independent of computer runs. 

Two sets of normalized lifetime curves have been generated, one using 
the 1959 ARDC density model as the basic reference and the other using the 
1962 U. S. Standard atmospheric density model. These sets are presented in 
Figures 8, 9, and 10 for 1959 ARDC and 11, 12, and 13 for the 1962 U. S. 
Standard. Figures 9, 10, 12, and 13 are blown up altitude regions of Figures 
8 and 11. A mean diurnal bulge and constant values of one ( 1) for vehicle mass, 
area and drag coefficients are assumed. The normalized lifetime read from 
these charts is L 1# For both references the formula for computing lifetime is 
then: 


Lifetime - Lj 


m 

L C d A J 


(f. 


) (f H ) 

CO Cl 


where 


L 1 = normalized lifetime which is a function of apogee and perigee 
altitudes 

m = orbiting mass in kg 
= or kital drag coefficient 

A - effective drag area in square meters 

f., = correction factor to the normalized reference for initial orbital 

inclination and argument of perigee. The normalized reference 
assumes values of 

i = 30° co = 180° 

f = correction factor to the normalized reference for the actual calendar 
dates the satellite is in orbit and the initial perigee altitude. This 
correction is required to account for the variation of density with 
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solar and geomagnetic activity which varies with time. The value of 
of f^ for future years is based upon current predictions of these 
effects. 

The step-wise procedure to be followed in predicting lifetime is as 

follows: 


1. Compute perigee and apogee altitudes in km. Use the earth radius 
defined at the sub perigee point in computing altitude (see Table 2) . If the i 
and co necessary to define this radius are not known, use the equatorial earth 
radius of 6378. 165 km in computing altitude. 

2. For the specified perigee altitude read the corresponding to the 
given apogee altitude, interpolating between lines of constant apogee altitude if 
required. Depending on altitude region of interest use Figures 8, 9, or 10 for 
ARDC reference and Figures 11, 12, or 13 for 1962 U. S. Standard. 

3. Compute A, effective area. For attitude stabilized vehicles this area 
is the surface projection on a plane perpendicular to the direction of vehicle 
motion. Projected areas are computed as follows: 

Nose-on (a =‘0°) Broadside (a = 90°) 

7rD^ 

Cone A = ~j~ A = DL/2 

4 

7rD 2 

Cylinder A = A = DL 

A = projected area (m 2 ) 

D = vehicle diameter (m) 

L = vehicle length (m) 
a = angle of attack 

For random tumbling bodies A is computed as one-fourth the total surface 

area. 
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4. Determine drag coefficient, Cj), from Figure 14. These data are 
extracted from Reference 8. The following values are for a 200 km altitude: 

Cone, nose-on = 2. 06 

Cylinder broadside = 2. 2 

Tumbling Body = 2. 18 

5. Compute the ratio M/CpA in ^ 

6. To obtain total lifetime in days based on 1959 ARDC or 1962 U. S. 
Standard reference, multiply M/C-^A by the value read from the graph to obtain 
L 2 . (i = 30°, oj — 180°) 


L 2 = Li M/C d A 


If something more than the apogee and perigee values are known 
about the orbit or a prediction for later launch dates is desired, using the 1959 
ARDC or 1962 U. S. Standard predictions computed in step 6 continue with the 
following steps. 

7. For given values of i and oo read f(i,co) in Figure 15, interpolating 
between lines of constant inclination if necessary. Note that the figure consists 
of two sets of curves, one for use when L 2 < 30 days and the other for use when 
L 2 > 30 days. Multiply L 2 by f(i, c o) to obtain L 3 . 


L 3 - L 2 f ( i, oj) 

L 3 is then lifetime in days for proper inclination and argument of perigee. Omit 
this step if i and co are not defined and the mean radius was used in step 1. 

8. For the given launch date and perigee altitude enter Figure 16 or 
Figure 17 for the 1959 or 1962 atmospheres respectively and obtain an average 
value of the ordinate for the given perigee altitude over the interval of time from 
the launch date (year and fraction) over the time (in years) corresponding to L 3 
days. The same lifetime will be obtained regardless of which base is used. This 
average is f^ which is multiplied by L 3 to obtain the first lifetime estimate L 3 ( 1). 
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Lgd) = Lgf d 


These f d correction factors are current only for the date of this publication. As 
new data become available and the solar activity prediction is updated, this f^ 
factor must be updated. 

9. Step 8 is repeated using L 3 ( 1) instead of L 3 to perform the average. 
However, when the new value of f(j is obtained it is multiplied by L 3 not L 3 ( 1) 
to obtain L 3 (2). 

L 3 ( 2) = L 3 f d 


Depending upon the accuracy desired and the variations in successive 
values of f ,, step 8 may be repeated until L 3 (n) is obtained which differs in- 
significantly from L 3 (n-1). 

Primary uncertainties associated with these predictions are a 25% 
uncertainty in and uncertainty in prediction of f d . The latter is a function of 
time and altitude. To obtain three sigma lifetime values for f d uncertainty. 
Figures 18 and 19 or 20 and 21 should be used for the 1959 or 1962 atmospheres 
respectively in the same manner as given in step 8 for Figures 16 and 17 and 
nominal lifetime. Three sigma curves are given only for future dates as there 
is no prediction uncertainty associated with past solar activity behavior. 

To assess the accuracy of the graphic technique, a total of 103 compari- 
sons was made between lifetimes predicted using the computer deck and lifetimes 
predicted using the graphic technique. It was found that a maximum of three 
iterations as specified in step 9 was sufficient for convergence. For short 
lifetimes only one iteration was necessary. The ratio of the program value and 
the graphic value was computed for all cases. The results of this yielded a mean 
and standard deviation of 1. 01 and . 15 respectively. From the results of this 
comparison no systematic errors seemed to be present in the graphic technique. 

As well as total lifetime, time spent in decaying from one circular altitude 
to another can also be obtained by subtracting the respective lifetime values. 

For elliptical orbits, the time spent in decaying from one apogee to another can 
be found in a like manner if the perigee could be assumed fixed. However, this 
assumption could cause a significant error since the perigee will in actuality 
experience a decay whose effect cannot be neglected. 
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TABLE II. EARTH RADIUS AS A FUNCTION OF INCLINATION (i) 
AND ARGUMENT OF PERIGEE (w) 


\ 00 
i \ 

0 

180 

360 

15 

165 

195 

345 

30 

150 

210 

330 

45 

135 

225 

315 

60 

120 

240 

300 

75 

105 

255 

285 

90 

270 

15 

6378.2 

6378. 1 

6377. 9 

6377. 5 

6377. 1 

6376. 8 

6376. 7 

30 

6378. 2 

6377. 9 

6376. 9 

6375. 5 

6374. 2 

6373. 2 

6372. 8 

45 

6378. 2 

6377. 5 

6375. 5 

6372. 8 

6370. 2 

6368. 2 

6367. 5 

60 

6378. 2 

6377. 1 

6374. 2 

6370. 2 

6366. 1 

6363. 3 

6362. 1 

75 

6378. 2 

6376. 8 

6373. 2 

6368. 2 

6363. 3 

6359. 6 

6358. 2 

90 

6378. 2 

6376. 7 

6372. 8 

6367. 5 

6362. 1 

6358. 2 

6356. 8 


Computed from 


= 6378. 165 

hi 


i - 


298. 3 


(sin 2 i sin 2 c o) 
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FIGURE 8. EARTH ORBITAL LIFETIME 
Perigee: 100 - 650 km 
Apogee: 450 - 600 km 
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ARDC Atmosphere 
I September 1965 


Parameter of Curves : Apogee Altitude (km) 

C D : Orbital Drag Coefficient 
A : Effective Drag Area (m 2 ) 

M' Orbiting Mass (kg) 
fj i(l) : Correction Factor for Initial Inclination 
and Argument of Perigee 
f,j: Correction Factor for Actual Calendar Date 
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FIGURE 9. EARTH ORBITAL LIFETIME 
Perigee: 100 - 200 km 
Apogee: 450 - 1750 km 
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FIGURE 10. EARTH ORBITAL LIFETIME 
Perigee: 100 - 600 km 
Apogee: 200 - 600 km 
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FIGURE 11. EARTH ORBITAL LIFETIME 
Perigee: 100 - 650 km 
Apogee: 450 - 6000 km 
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FIGURE 12. EARTH ORBITAL LIFETIME 
Perigee: 100 - 200 km 
Apogee: 450 - 1750 km 
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FIGURE 13. EARTH ORBITAL LIFETIME 
Perigee: 100 - 600 km 
Apogee: 250 - 600 km 
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FIGURE 21. fj CORRECTION FACTOR FOR +3a LIFETIME: 1962 U. S. STANDARD REFERENCE 



APPENDIX A. DERIVATION OF THE DECAY EQUATIONS 


sH (x > 


y 


A. Definitions 



From the above geometry: 


cos i = e • It 
h 


cos D = e fi • i 



x e 


h 
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f 


cos U = • e R 



H 

sin S2 = • j 

I - 1 

e L 

I 

= M 

' J 

I j 

sin u = e n x e. • e 
£2 R h 





k x e, 
_ h 

e r> = — : — “ 

H sin 1 


k x h 
h sin i 



I 

R 


- _ R_x V_ 
®h I R x V | 


/ T \ 

T 

'/ 




R 


The transformation matrix M is given by 


/ cos u 


cos £2 - sin u cos i sin £2 


M = | -sin u cos £2 - cos u cos i sin £2 
sin i sin £2 


cos u sin £2 + sin u cos i cos £2 
-sin u sin £2 + cos u cos i cos £2 
-sin i cos £2 


sin u sin 
cos u sin 
cos i 



h =R x V 

h = R 2 — 
dt 


- V x (R x V) - 

e = - e_. 

ix R 


e = I e | 

(e fi xe) • e v 


sin co = 
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I 


Hill 


i ii ii iii i ii mu 


iiiiiiiii mu min in 1 1 ii i 


i 


COS CO = 


v e 


A = e cos a) - e^* e 


B = e sin a; = x e 


P =' 


h • h h 2 


_ P e R 
R — 


1 + e cos (u - a>) 


% 


V = 



[ i + e cos (u - u>) ] + e sin (u - to) 

a 



} 


f x \ 

i 

r\ 


/ 6 R- ‘\ 

y 


' R -T 

1 

B 

1 + cos 9 

VT 

z ) 


\ r -v 


\hi-V 


9 = u - co 


jp = 1 + e cos 9 = i + A cos u + B sin u 



Consider now R to be "radius" and V to be "velocity. " In Newtonian motion the 
two are related to some "force" F as follows: 
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V = 


dR 

dt 


or in alternate form: 


dV _ F 
dt M 




+ 5 


Since the definitions express the orbital elements most directly as functions of 
h and e, their derivatives are facilitated with expressions for — and ~ . 


dh 

dt 


d . dR — =- dV 

— (R x V) =— xV+Rx— - 
dt dt dt 


V x V + R x 


1 ‘ R 3 


= R x 


«■ _ M 

R ; 


? “ r.3 


= RXJ - RX^ 




de d . d — 

M dt = dt (VXh) "^ e R 



h + V x 


dR 

dt 



R 

R 
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f xh+vxf 

dt dt 


-£ tffi-s-®] 

R 2 ^ dt dt J 


dV 

dt 


xh + V x (E x j) - ^3 Rx 

-LX 


— . u | — dR 

cr \ _ -L— I T? v 

dt 


XR 


^xh + Vx(Rxj) - Jj (h x R) 


1 dV uR 
dt R 3 


x h + V x (R x J) 


= jx (Rx V) + Vx(Rxj) 


i. The derivation of 


di 

dt 


cos i = e • k 
h 


. . di _ d6 h _ dk 

' Sin 1 dF = k ‘ 1T + V dt 


de h 

k • — + ° 
dt 


h 3 


— dE -p 
h x — x E • k 
dt / 


i 

h 3 


|Kx dt •<- e n hsm> > 


di_ _ _1_ 
dt ' h 2 


dh 
h x — 
dt 


'S 2 
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w 


di dll 
dt dt 


(e Q Xh) 

h 2 


= (RxJ) 


(e n xe h ) 

h 


= f <e R Xe h ) * e R 


5 


di. 

dt 


R 

= — cos u 
h 



30 


dft 

2. The derivation of — 

dt 


cos = e^ • i 
dS2 r de !2 

■ SInn_ S = I ' IT + ° 


de 


a d 


dt dt 


Fxh 


h sin i 


k dh k x h d y 

7 — : — r x — - 72 — . ~ 2 " : ' TT ( h sin i) 
h sm l dt h sin l dt 


k dh °8 d y — _ t- — v 

r — : — r x — - - — — (k x h • e ) 
h sin i dt h sin i dt M 


h sin i 


t- dh 


de 


- e n '' (lr xE > 


dT + Vif< kxl; > 
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h sin i 


- dh - } n . - -r dh 

kx «- e a \ 0 + e a kx_ S 


de 


n 1 


dt 

h sin i 

d ®S2 

1 

dt 

h sin i 

. d a 

d5 si T 
dt 1 

2 dt 


1 


h sin i 


1 


h sin i 


1 


h sin i 

d£ 

1 


- dh _ — dh — 

kx — -e k x — • e 

dt £2 l dt 5! 


. r dh 

e a x kx -S 


x e 


a 


, r dh 

e n x l kx * 


e S2 X 


{- dh 


Xe i2* 1 


6 fi Xi 


- dh 

e fl X l kx Tt 


(-k sin £2) 


dt h sin i 


e fi X 


dh 

kX di 


* k 


k x e n ,t- 

Q r- dh 
— : — r • k x — 
h sin i dt 


(kxe «> _ dh 

, • • x k • 

h sin l dt 


h sin i 


(k x J) 
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cm e £2 _ - v 

— = 7 — : — 7' (Re xj 

dt h sin 1 R 


R e 


n 


h sin i R 


( e r> x 30 


R 


r (e 0 x O ’ 3 


h sin i £2 R 


d£2 R . / — ~ \ 

“TT = 7 — : — r sin u (e • J) 
dt h sin i h 


3. The derivation of 


dR 

dt 


dp d_ h • h 

dt dt 


2 r dh 
= ~ h • — 
/it dt 


= h • (Rxj) 

h V ' e ®r x « 


d£ = 2hR - 
dt n 6 h 


2hR _ 
— e, 


'R 


x e 


R 


x 


7 

f 
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d£ = 2hR - 
dt M h 


?) 


1 dp 2R 

Fdt'TT (e h 


30 


4. 


The derivation of 


dA 

dt 


A = e 


ft 


e 


dA _ de fl , - de 
dt dt S2 dt 


= e 


— " e o x 

h sin i 


_ dh 
k x — 
dt 


Xe S? + 


'n 


de 

dt 


= e 



x e 


n 


+ e 


n 


de 

dt 



(e n xe)+ e n 


de 

dt 


dt 


k • 



+ e 


a 


de 

dt 


= (R- e h ) +e n 


de 

dt 


dA 

dt 


^ dn . _ 

B_ S oosl + e B 


de 

dt 
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r]p \ — __ 

— = - {j x (Rx V) + Vx (RxJ)} 


j ^ 

• — = — • {R (V • f) - V (R • J) +R (V • J) - f (V • R)} 


e 0 = e cos u — e i sin u 
R L 


e 0 * e_. = cos u 
u l R, 


* e L = ' sinu 


R • = R cos u 

_ _ __ _ 

V • e = — [ ( 1 + A cos u + B sin u) e + ( A sin u - B cos u) e ] * e 
^ n Li R 


, [ (i +Acos u + Bsinu) e T + (A sinu- Bcos u)e ] • f e cos u- e sinu] 

L xv XV L 


^ [- ( 1 + A cos u + B sin u) sin u + ( A sinu - Bcos u) cos u] 
h 


^ [-sinu - A sin u cos u - B sin 2 u + A sin u cos u - Bcos 2 u] 
h 


V • e„ = £ [B + sin u] 
h 


V • R = ^ [( 1 + A cos u + B sin u) e T + ( A sin u - B cos u) e ] ' Re 

h L K xv 


V * R = [A sin u - B cos u] 
h 
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e • {2(V • 5) (R • e fl ) - (R • f) (V • e fl ) -(? • e fi ) (V- R)} 


dt /n 


= - {2Rcos u( V • J) + {*■ (R + sin u) (R • J) - ^[Asin u - Bcos u] ( e R )} 


= ^ {2Rcos u V + ^ (B + sin u) Re R - J R [Asin u - Bcos u] e fi } • J 


= - cos u r 1 + Acos u + Bsin ul e T + cos u [Asin u - Bcos u] e 
ju h 1 L n B 


juR 
' h 


[ B + sin u] e R - [Asin u - Bcos u] [e R cos u - e L sin u] } • 5 


R 


= — {(2cos u [ 1 + Acos u+ Bsin u] + [Asin u - Bcos u] sin u) e R 


+ (2[ Asin u - Bcos u] cos u + [ B + sin u] - [ Asin u - Bcos u] cos u) e R } • 5 


= T" ( (2i/)Cos u + Asin 2 u - Bsin u cos u)e + (Asin u cos u - Bcos 2 u 


+ sin u) e R } • J 


e • “| = f (t A + ( 1 + W cos u l e L + 0 sinue R } ■ J 


dA _ dft . , - de 
— — = B — cos i + e • “TT 
dt dt dt 


^■=B^cosi + f {[A + (1 + i /0 cos u] e T + ipsin u e R } • J 


dt dt 
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5. The derivation of — 

dt 


B = e„ x e • F, 
ft h 


dB d _ , h _ 

ir = 3i <e fi xe) • var- (e sj x5) 


de 0 ,— de 

-3T xS+ ^ x f ' V-*' ,5 n x5 > 


de_ j- de, 

— ft — . — _ de. h __ 

= e u * “TT~ x e + e, • e 0 x — + —— • ( e_ x e) 
h dt h ft dt dt ft 


,,, de _ de, 

dB _ ft _ . — _ de h„_ 

dt h dt h J! dt dt h 


de ft dft _ 
dt dt k X 6 ft 


dB _ dft \ _ _ de 

dt h dt ft h ft dt 


dft _ _ de 

"dl <IrXe !2 > X6 ‘ V V e SJ X dt 


d£2 — __ _ de 

— (kxe n ) • (exe h ) +e h - e^x- 


II [(k ‘ e) le S2 e h> - (k • e h> (e !2 • e)J +e h‘ e S2 X l 
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■ft (lr ‘ e h )(e n‘ 6) + V e S2 X ft 


dB d£2 _ _ de 

— = - — 7 - A cos 1 + e, • e 0 x ~ 
dt dt h S 2 dt 


dB dft — de_ 

— = - ~ A cos 1 e n • — x e, 
dt dt S 2 dt h 


dB dfi . . — — de 

— = - — A cos 1 + e, x e_ • ~ 
dt dt h dt 


e_ = e cos u - e sin u 
K -Li 


e. x e„ = e. x [e^ cos u - e T sin u] 
h £2 h R L 


= e. x e_ cos u - e,x e T sin u 
h R h L 


e, x e„ = e T cos u + sin u 
h S2 L R 


_ - de r _ , _ . , de 

e, x e 0 • — = [e T cos u + e sin u • — 
h S2 dt L R dt 


— de , _ de . 

= e T • — cos u + BL • — sin u 
L dt R dt 


de 

dt 


— de 
®L * dt 


£ [2R (V-J) - V(R-J) - J ( V* R) ] 

H 1 

~ [2(V-J)(R-e L ) - (R.f)(V-e L ) - 


• R)( c i*e L )] 
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= i[2V(R- e L ) - R(V • e L ) - (V- R)e L J • 5 

R • e = 0 
L 

R • V = [ Asin u - Be os u] 

V • e = {7 {[ 1 + Acos u + Bsin u] e + [ Asin u - Bcos u] e } • e 

L n L x\ L 

V • e R ^ [ i + Acos u + Bsin u] 

pig- "j __ . . . , __ 

e R ‘ dt = m {2(V ' ?) (R ' V “ (R ' (V ‘ ®R ) - < V ' R > 

= j; {2V(R • e R ) - R(V • e R ) - (V • R) e R } • f 

V • e = “■ {[ 1 + Acos u + Bsin u] e + [Asin u - Bcos u] e } • e 

K n L fv x\ 

V * e = ^ [Asin u - Bcos u] 

e r • ~ cos u + * —7 sin u = — cos u {- ^ R [ 1 + Acos u + Bsin ul 

L dt R dt fjt 1 h 1 J 

- [Asin u - Bcos u] e^} • C S + ^ sin u ( 2 RV - ^ [Asin u - Bcos u] 

- [Asin u - Bcos u] e\ • J 

n R 
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L dt 


e • — cos u+ e„ • ^ sin u = 77 {-[rfi] cos u e D - [Asin u - Bcos u] cos u e 
” R at fl JrC -Lj 


R 


+ 2sin u ip e + [Asin u - Bcos u] sin u e 

Xj 


R 


[Asin u - Bcos u] sin u e R - [Asin u - Bcos u] sin u e R } • 5 


R J 


e • — cos u + ^ sin u = -^7 {(-ibcos u + [Asin u - Bcos u] sin u 

L dt R dt n 


[Asin u - Bcos u] sin u) e R + (-[Asin u - Bcos u] cos u 


+ 2 ; p sin u e ) • J 

-L 


e • cos u + sin u = 77 {-ib cos ue D + (-[Asin u - Bcos u] 

L dt R dt n ±t 


cos u. 


+ 2 ; p sin u)e } • $ 


— de , — de . 

e L "dt COS U + 6 R "dt Sin U 


TD 

= — {-^cos u e + (-Asin u cos u + Bcos 2 u + 2 ip sin u) e } * J 


h 


= ~ {-ipcos u e + (-sin u cos u + B - Bsin 2 u + 2^sin u) e } ' c 5 


= {-ipcos u e + [ sin u (-cos u - Bsin u + 2ip) + B] e } ' ? 


{-^cos u + [ (1 + ip) sin u + B] e^} • ? 
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dB dfi . , _ _ de 


dS2 de „ , _ de . 

= — Acos i+ e T • — cos u+ e_, • ~~r sin u 

dt L dt R dt 


^dt = ”^t AcOS i+ h~ {-tp cos u e R + [(1 + ^)sin u+ b] e T } • f 


R 


6. The derivation of 


de 

dt 


de d i 


i _ de 
e 6 * dt 


lie 

_L 

lie 


— — 



V X (R x V) _ 

H e R 

• 

fx(RxV)+ Vx(Rxf) 


(V- V)R - (V. R)V _ 

— - e 

li R 


E(V.‘/)R- (R- F) V - ( V* R)J 


~ < <Y: V)R ♦ [ 2(V. 5F)R - (R- C J)V - (V-R)!f] 

fj,e \ 


- ( V ‘ R ^ - V • [2(V- 5)R - (R-?)V - (V*R)? ] 


-e R - [2(V.J)R-(R*5)V-(V'H)J] 
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= _1 JlVlYI [ 2 R 2 V - 2R (V- R)] - ~ [(V-R)V - (V- V)R] 
Me \ M M 


- [2 (R-e R )V - (V-e R )R- (V.R)e R ] 


_ M 

V = — { [ i + ecos 0 ] e T + esin 0 e } 
h L K 


R = Re 


R 


(V • E) = e sin 0 
n 


(V • V) = j^|- { [1 + ecos0] 2 + e 2 sin 2 0} 


u z 

= { 1 + e 2 + 2ecos0} 


(V . e R ) = ^ esin£» 


37 = — <rf[i + e 2 + 2ecos0] 
dt Me I lr 


2 R 2 ^ ( [i + ecos 0 ]e T +681110 6,-.) 
h L R 


2 R 2 m . fl - 
-^esin0 e R 


Resin 0 


MResing ^ ([l + ecos0]e + esinSe^) 
ha L K 


R [1 + e 2 + 2 ecos 0 ]e 
h 


( [ 1 + ecos0]e T + esin0 e„) 
h L R 
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+ esin# e + esin0 e / • J 
h R h R r 


~ <^F [ i + e 2 + 2ecos0] [ ( ipe + esin0 e ) - esin0 e ] 

n A Gil xi xv 


ftResinQ [ es j n g e + esin0 e,,) - (1 + e 2 + 2ecos0) e^,] 
II .Li xi ri 


~ (i pe T + esin0 e ) + 2sin0 e,, ) • ‘J 

G JL xi xi | 


= ~ \~~ [l+e 2 + 2ecos0] [ ( ipe T + esin0 e„) - esin0 e„ ] 
dt h ] i pe r L R R 


sin0 


[esin0(i/) e + esin0 e ) - [ 1 + e 2 + 2ecos0] e ] 

ip Li -tv XV 


— ( ip e + esin0 e ) + 2sin0 e /• 

G -L; XV XV f 


R 

h 


2 r , , ? . „ , esin 2 0 , 2ip 

— [1 + e 2 + 2ecos0] ip - — : ip - 

ipe ip r e 


e 2 sin 3 0 sin0 rj •> 

- ; h ; — [ i + e 2 + 2ecos0] 

ip ip 


e R > * y 


R 

h 


2i 2 

— [1 + g 2 + 2ccos0] - Gsin 2 0 - — [ i + gcos0] 
g e 


sin0 


G 2 sin 2 0 + [ 1 + e z + 2gcos0] 


°R> ' * 
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!i III I 


= | ll2e + 


2cos0 - esin 2 0]e + 


V. 

+ ^~ [ 1 + e 2 + 2ecos0] 


esin 2 0 

4> 


e R >' J 


J -Q 

"dt = "h^ e + ^ + ^ COS0 ^ ®L + ^ sin0 ® R ) * ? 


7. The derivation of ~ 

dt 


cosco = 


e J2- e 


du Id,- 1 de 

■srnw — = — ~r~ (e 0 • e) - —j ( e_ • e) — 
dt e dt £2 e^ £2 dt 


dco 1 dA cosco de 

-sinco — — - — 

dt e dt e dt 


dco dA de 

-esinco dt - dt - cosco dt 


B ~ cos i + ~ { [A + ( i + ^) cos u] e^ + ipsinue } • J 


R 


cosco — {^sin0 e R + [e + (i + jj>) cos0] e y } • 5 
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do; 

dt 


R , _ 

= — coto; { ipsind e R 


+ [e + (1 + ip) cos0] e } • 5 

L 


d£2 

dt COS 1 " 


A 

he 


cscco {ipsin u 


+ [A + (1 + ip) cos u] e L ) 


5 


dco 

dt 


d£2 R r 

-~7T cos i +T - { ^sin0 coto; e B + cotco te + ( 1 + ip) cos0] e T 
dt ne -K L 


-^sin u cscco - cscco [ A + (1 + ip ) cos u] 
it 


*L> 


dco 

dt 


dfi . R r r 

-^*cos i + — { L^sin0 cotw 


■ipsin u cscw] e 


R 


+ 


f 

cotco [ e + ( 1 + ip)cos6 ] - csco; [ A + ( 1 +if ) cos u 

L 


e L } ‘ ^ 


d a; 
dt 


d£2 R 

"dt cosi+ h; 


{-ipcos6 e + (1 + >p) sin0 e T } • J 
ri L 


dr 

8. A derivation of ~ 


dr 

_E = d_ p 

dt dt 1 + e 


1 dp _ p de 

1 + e dt ( 1 + e) 1 2 dt 
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= 2 rh ? <e L - J) -u^i ) 2 ff e R + 


R 


+ [e + ( 1 + ip) cos0] e } • J 


= f <'i? e )i { 2 (lte)le L ,) '•‘"'I' [e 

+ ( 1 + 4 >) cos0] e } • 5 

Jj 

= ^ ^ ^ e ^2 { ( 2(1 + e) - [e + ( 1 + ip) COS 0 ] je L - tpsind e R } • f 


n R n 

— £ = ” 7T~ x 2 ( -^si n6 e + [2( i - cos(9) + esin 2 0 ] e } • f 
dt h ( i + e) R L 

dr 

9. A derivation of — ~ 

dt 


or , / i 

a _ d_ | p 

dt dt 1 1 - e 


1 dp p de 

1 - e dt ( 1 - e) 2 dt 


*~rh <e l/ f) + f {!e + (i + *> COSO] e L 


+ i^sinfl e } • J 
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I 


= TT { 2( 1 - e) e T + [e + ( 1 + ip) cos 0]e_ + *psin0 } • ? 

h(l-e) Li L K 

= u / -< \ 2 { t 2( 1 - e) + e + ( 1 + ip) cose] ¥ T + ipsinO e_. } • 3 

xlll — 6) L It 

= e ^ ~2 { [( 2 - e) + ( 1 + ip) cose ] e L + ipsine e R } • f 

lr R 

df 1 = h( e )2 { ^sin0 e R + [2(1 + cos 0) - esin 2 0] J 


B. The description and substitution of T in the decay equations 


dA 

dt 


Define J as follows: 




Where J is the gravitational perturbing force due to earth oblatness 
G 

C J ^ is the perturbing force due to drag 

J is the perturbing force due to solar radiation pressure 
b 


? =J T 

J G R 2 


3 

Z 


N = 2 


N 


/ R i 
1 eg 

R 


N 


{ (N + 1)P n e R - [cosie h 


N 


+ sin i cos u e 1 } 
L J J 


R = earth's equatorial radius 

R, /3 are the geocentric radius and latitude of the satellite 
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P N (sin/3) 


'N 



th 

is the N Legendre polynomial 
are empirically determined constants 


a 

9sin/3 


(P N sin^) 


B 


- [i + e 2 + 2ecos0] 2 


2m 


[ 1 + ecos0] e + esin0 e_] 

1j £\ 


A = reference area 
m = mass of satellite 
= drag coefficient 

3c = - ~ Pr [L e + M e + N e , ] 
o m rl l-i n 



"bos u cosfi - sin u cos i sinfi 
-sin u cos £2 - cos u cos i sinft 
sin i sinfi 


cos u sinfi + sin u cos 
-sin u sin£2 + cos u cos 
-sin i cosfi 


sin u sin i A 


_1 s “ 

cos u sin i 


m s 

cos i 


_ n s _ 


cos £2 
cosfi 
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are the direction cosines of the sun 


's' m S' n s 

P-o = solar radiation pressure 

XV 

A reference area 

P 2 = 2 ( 3sin 2 /3 - 1) = ^ ( 3sin 2 i sin 2 u - 1) 

P3 = ^ (5sin 3 j3 - 3sin/3) = ~ (5sin 3 i sin 3 u - 3sin i sin u) 

P^ = 3sin/3 = 3sin i sin u 

P3 = ^ (5sin 2 /? - 1) = (,5sin 2 i sin 2 u - 1) 

dA. 

1. Substitution of the above expression for J in the — 


di 

dt 


R 


= -cos u(ye h ) 


di R 3 - - . 

oosu(J.e h ) 


di R 3 _ _ _ 

— = p-cosu(j G + j D + y s ) . e h 


IN 


? G * 6 h R 2 N ^ 2 J N P N 


*D * 6 h = ° 


V 6 h = -m P R N 
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cos i 


sin i sin u + — J 3 

Ct 




3 ^ j 2 . . . . „■> 15 ^3 .9.9 

— 9 cos u sm u cos 1 sm iR' - — ,0^2 cos u sm u sin 4 
Rh 2 eq 2 IPR 2 


i cos i R 3 
eq 


+ — 7 9^ 9 J 9 cos u cos i R 3 
5 IrR 2 3 eq 


P AN 
r » 

79 — R cos u 

mb' 2 


di 3 J 2 o 

— = - — 5 — R 42 cos i sin i cos u sin u [ 1 + ecos0] 
d 0 p 42 eq 


= — r Jo R 3 sin 2 i cos i cos u sin 2 u 1 1 + ecos 1 2 
2 p 3 3 eq 11 


3 ji 

+ — ■% R 3 cos i cos u r 1 + ecosSl 2 - — 75 “ cos u P 
2 p 3 eq 1 mh r 

Define i so that i = i - Ai where Ai is the purely periodic portion of i. 

A characteristic of any periodic function is that its derivative is also periodic. 
The only portion of the above expression that is not necessarily periodic is the 
term involving solar radiation pressure, P r . I. e. P r is assumed to have a 
constant positive value in sunlight and a value of zero in the earth's shadow. 
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The process of removing the periodic portions of the ~ is done by 
averaging in the following way: 


dA_ 1 
dt 47I 2 



2tt 


f 


dX 

dt 


JG 


d0 da> 


It is easily shown that terms containing sin u, cos u, sin ucos u, N ODD 
will vanish over [o,2i r ] when averaged in the above manner. This aid then 
makes the integration a process of inspection. 


~ ANR 3 P cos u 
di r 


d9 mh 2 


dT _ jdi p 2 
dt ~ d6 f 


~ ANR 3 P cos u T 
di _ r /r 

dt m pa ( 1 - e 2 ) f- 

a 


dT 

dt 


ANR 3 P cos u 
r 


nifi 


,2 ~a^ ( 1 - e 2 ) 


dO 

Derivation of ~— 
dt 


dfi R sin u v 

— = (T*e ) 

dt h sin i ' n 


dS2 _ R^ sin u . 

d0 h 2 sin i ^ e h 
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dfl _ R^ sinu 
d0 h 2 sini 


<?G + ^ + V * 



\ 


?G‘ 6 h 


e h 

*8 * 6 h 


. di 

are the same expressions as given m ^ 


On substitution then the expression 


. dS2 . 

for — becomes 
d0 


dO 

d0 


h 2 sin i 




- ^2 cos i £ 3J 2 

/R 2 
R 

t / 




sm 1 sin u 


R 1 

_ea 

l R 1 

3 

(5sin 2 i sin 2 u - 1) 

-A PN 
m r 



J 


dfi 

d0 


3 J oR 


eq 


cos i sin 2 u [1 + ecos0] - 


15 J a 

2p 3 


R 3 sin i cos i sin 3 u f 1 
eq 1 


+ ecos0] 2 +| ^ R 3 esc i sin u [ 1 + ecos0] 2 
2 p' 3 eq 


ANR 3 

mh 2 sin 


sin u P 

r 


Averaging as before, only the first term of the above expression will remain 
since it contains a secular term. The term involving solar radiation pressure 
is retained 


dfi 

de 



ANR 3 sin u P^ 
mh 2 sin i 
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II 

i 


d0 


3 

2 p 2 


AMR 3 sin u P 

R 2 cos i -~ 75 — - r 

eq mtrsin 1 


dfi 

d0 


3_ 

- T 2 cos i - 


ANR 3 sin u P 
r 

mh 2 sin i 


J 2 - J 2 


R ? 

_ea 

P 


dfi 3 M 2 

dt ~ ~ 2 f 
a 2 


J 2 cos i- 


ANR 3 sin u 

— ITT. T 

mp 2 a 2 (i - e 2 )sin i 


3. Derivation of — 
dt 




dco 

dt 


d 0 • , R r 

dt eh l 


-ipcosd e + ( i + if)) sin 0 e } • J 


do; 

dt 


dfi 

dt 


. , R , 
cos 1 + — { 
eh u 


-ipcose e R + (1 + ip) sin 0 e L } • (f Q +J D + 5 ) 



2 


N = 2 


N 


R 

_eg 


N 

(N + 1) P N 



JL 

R 2 


2 


N = 2 


N 


N 

R \ 
_eq. 

R 


P ' sin i cos u 
N 


e R * = ~ EL + e 2 + 2ecos0 ] 2 sin0 

e -^ • Jj) = “ [ 1 + e 2 + 2 ecos 0] 2 [ 1 + ecos 0 ] 
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e_ • 5 = - — P L 
E S m r 


e r • 5 = - — P_m 
L m R 


dco dfi . R , . 

— = - — cos l- — ibcosQ 
dt dt eh Y 


e R* + e R ,3r D + 6 R* ? S 


+ — • (i + ip) sin0 
eh 


V 3 G + 5 I/ 3 D +e l/?S 


f 3 R N 

dfi . Rflcps.e J ij_ y T _§SL I /m+^p 

dt dt C ° S1 " eh W N ^ 2 J N 1 R ) (N + 1) P N 


mepB 


[ i + e 2 + 2ecos0] 2 sin0 - — PL } + 
p m r ' 


R( 1 + il>) sin 6 } JL V T 
eh Vtf J N 


R i 

_ea 

R | ""N 


N 


P ' sin i cos u 


jX£B 


[ 1 + e 2 + 2ecos0] 2 [ 1 + ecos0] - — PM 
p m r 


u 

Z 


N=2 


N 


fR 

_ea 

R 


N + l 


(N + i) P N = 3J 2 


I R 
_ea 

R 


\2 


y j (3sin 2 i sin 2 u - i) 

u 
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II 


+ 4J, 


R e i \ 

(— ] (5sin 3 i sin 3 u - 5sin i sin u) 


= fj* [-f 1 | sin'i sin z u - | J 2 |(-j> J + 10J 3 


R 


R 


eg 


R 


6 Q | , 9, o 

' sinn sin s*u 


- 6j 3 

N 


/ R 3 

Lea 

1 R 


sm 1 sm u 


.. 2 


N 


;R e \ /R f 

j sin i cos u = 3J 2 I j sin 2 i sin u cos u 


♦2* 


, r l 


t R 1 

_eg. 

sin 3 i sin 2 ucos u- — Jo 

eq j 

[ R 

, R J 

2 J 1 


sin 1 cos u 


dco _ dw _dt^ _ R^ eta 
dd ~ dt dQ “ h dt 


dcu _ dfi . pR 3 ;/>cosg 1 
d© d6> ° eh 2 R 2 


a / R ' 2 

I', h* 


• 2 • • 2 «J x 

suri sin £ u - — J 


r R 

_§a 

R 


+ iOJ 3 


R 

eg 

, R ] 

3 

sin 3 i sin 3 u - 6J 3 

R 1 
—§9. 

1 R J 

3 

sin i sin u 






1 AP r L 


[i + e 2 + 2ecos0] 2 sin# - 
p m n 


MR 3 (1+ ip) . J 1 
+ eh* Sme { R* 


-3J 2 


R 

eg | . 2 . 

| sm‘i sin u cos u 

xi 


15 

2 


_ — T 

- d 3 


R 1 
eg 

, R J 

3 

sin 3 i sin 2 u cos u+ — J 3 

f R 1 

eg 1 

[ R i 

3 

sin i cos u 
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J. 

[i + e 2 +2ecos0] 2 [i + ecos0] 
P 


AP M 
r 

pm 


dw 

d0 


dfi . cos0 J 9 T 
— cos .-— h 


/R T 2 
_§R 
R 


. 9 . .2 <3 _ 

siri sin u - “ J 2 


R 

_§a 

R 


+ 10J 3 


R < 4 

— ^ sin 3 i sin 3 u - 6 J 3 

R 


R 

R 


sin l sin u 


2 i AP LR 2 

_ epBR _ [ j + e 2 + 2ecos0] 2 sin0 - 


. I R \ 
+ ^;- 3 j 2 i -® 1 




R 


sin 2 i cos u - J 


15 T I 

R 


sin 3 i sin 2 u cos u 


+ f J 3 


_ecL 

R 


I 2 

sin i cos u - pB ^ -- [i + e 2 + 2ecos0] 2 [1 + ecos0] 


AP MR 2 , . fl 

r \ + SSSLi. 3J 

pm ’ 


R e 1 

e ^~ sin 2 i sin u cos u 
R 


is T (^§a 

2 Jz R 


sin 3 i sin 2 u cos u+~ J 3 


R 

_ea 

R 


sin l cos u 


- pBB - [1 + e 2 + 2ecos0] 2 [1 + ecos0] - 


AP MR 2 
r 

pm 


For convenience the effects due to 

(do/ 

separately below. For 


r jg 


only 


expression remain, and become 


the three perturbing forces will be considered 
the first, second and third terms of the 
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= A J 2 Rj 2 cos2 i - XX J 2 R 2 sin2 i + XX J 2 B 2 


d0 1 G 2p < eq 


4p 2 ~ 2 eq * 2p< "eq 


dco 3 — 2* 9 — . t 

— =- J 2 cos^i - ~ J 2 sin^i +- J 2 

G 


“X = § J 2 I 4 " 5sin 2 i] 

Jg 


1 

^ -T 

da; _ }£_ do; 

dt _ — dd 
a 2 



da; 3 m 2 

dt G 4a^ 


J 2 [4 - 5sin 2 i] 


The effects due to drag become 


J^d0^j = ^^p S ^ n ^ ^ + g2 + 2ecos ^ 2 ( ecos 0 - i - ( 1 + ecos0)} 

= fi BR 2 Bi ag. [1+e 2 + 2ecose] i ( . 2) 
d0j D ep 




do; 

dd 


2pBR 2 

ep 


_l 

[ 1 + e 2 + 2ecos0] 2 sin© 


do> 

dt 


D 


_1 L 

2pB/z 2 a 2 (1 - e 2 ) 2 
e a( 1 - e 2 ) 


J. 

[ 1 + e 2 + 2ecos0] 2 sin# 
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[ 


— 1 


dt J 


D 


- 2pBff (1 ^e . ) + e 2 + 2ecos0] 2 sin0 

ea 2 


dw 

dt 


will vanish over [o,2n] if we consider p = p (R) to be an even function of 


D 


0. Thus 


dco 

dt 


= 0. 


Jd 


The effects of solar radiation pressure remain 


da; 

d0 


AP LR 2 cos0 AP MR 2 sin0 AP MR 3 sin0 
r r r 


Js 


pme 


Umipe 


p me 


dw 

d0 


do) 

dt 


AP R 2 
r 

pme 


AP R 2 
r 

i -f 

S a me 


Msm0 ,, . „ 

Lcos0 - — — - Msm0 

1 + ecos0 


Msm0 ,,, . „ 

Lcos0 - — - Msm0 

1 + ecos0 


da; 

dt 


— AP R 2 

= f ^3 ^2 l 4 - 5sin 2 i] + jT 


m p 2 a 2 e L 


Lcos0 - 


Msin0 
1 + ecos0 


- Msin0 


4. Derivation of 


dr 

dt 


dr r 2 _ _ 

— ^ — {^sin0e - [2 (1 - cos0) + esin 2 0] e } • J 

dt p h L R B 


dr 

_a = 

d0 


r ‘ 
_E_ 

P 


Rf 

h 2 


{ ipsind e R - ( + 5 D + ^g) ~ 12( 1 - cos 0) 
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+ esin 2 0] e L . (gF Q + J D + Jg) } 


r dr -j r “K“ _ 

= - J j- { ipsinO (e • ? ) - [2( 1 - cos0) + esin 2 0] e • f } 


r 2 R 3 


l de 1 g phI 


R G 


L J G 


dr - 
_E 
de 


M r R 

— T 2 - ( sin# 

ph z 


o J 2 


R - 2 
_€ 

R 


eq I .2.-2 3 _ 

— ^ 1 sin l sin u - — J 2 


I R l 2 
eq 1 

R 


+ 10J 3 


R \ 3 I R 

sin 3 i sin 3 u - 6J 3 I 


sm 1 sm u 


2(1- cos0) + esin 2 0 


3J 2 


R 

_ea 

R 


/ R 1 

J L l 

3 

eq 

1 . 3- • 2 

» ] 

sin 1 sin u cos u 



sm‘i sm u cos u 


+ ~7T J, 


On integration of the above expression for 


dr "| 
d<9 


all terms will vanish 


J G 


due to the odd powers of the trigonometric terms involving u 


dr 

L dt J 


D 


r 2 R 

' P ph ' { ^sin0(e R -f D ) - [2(1- cos0) + esin 2 0 ] (e L * ? D ) } 
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The drag effects ~~ are 
dt D 


dr Mr 2 RpB i_ 

"dt = ' hp 2 ti +e 2 + 2ecos0] 2 {-^esin 2 0 + [2(1 - cos0) + esin 2 0]} 


\xr 2 RippB 


dt D h P 


|2 ~ [1 + e 2 + 2ecos0] 2 [2( i - cos0) ] 


dr 2ur 2 pB 

-2 .-IP . r ■< j- ^2 


dt D hp 


[1+ e 2 + 2ecos0] 2 [l - cos0] 


2 m 2 r 2 pB A 

~3 2_ -j. [ l + e 2 + 2ecos0] 2 [ i - cos0] 

a 2 ( 1 - e 2 ) 2 


_E =--^“ {^sin0(e R .J s ) - [2(1 -cose) + esin 2 0] (e^ j g )} 


dr p r p 2R I ^sin0AP r L AP M 

dt g = ~~ph~ m + 12(1 - cos0) +esin 2 0] 


r J AP 


v ar ( 1 - e 2 ) 2 m 


-Lsin0 + i^ U l- COsQ) + esin 2 0] M 
[ 1 + ecos0] 


Hence the final expression for — is 

U 1/ 
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dr 

E = 

dt 


_1 1 
2 p 2 r 2 pB [1 + e 2 + 2 ecos 0 

3 

a 2 (i - e 2 ) 2 


[ 1 - COS0] 


r 2 AP 
-T* " 


mp 2 a 7 ( 1 - e 2 ) 2 


3- < -Lsin 0 + 


[ 2(1 - cosd) + esin 2 0 ]M 
1 + cos0 


dr 


5 . Derivation of 


a 

dt 


dr r 2 R 

= { 4 >sind e R + [2(1 + cos0) - esin 2 0] } • ? 


rdr n r 2 R 


dt 


JG 


{ipsindi e R -J G ) + [2(1 + cos0) - esin 2 ] ( e R - $ Q ) } 


r dr o " 

Since the above expression is identical to -r-~ insofar as trigonometric 

L d0 J G 

terms are involved, it vanishes over [o, 27 r] in the same manner. 


rdr -1 


dt 


■id 


pr^RpB 3 

— [ 1 + e 2 + 2ecos0] 2 { ^esin 2 0 + [2 (1 + cos0) - esin 2 d]ip} 


dr 
a 

dt 


JD 


pr z pB 

a 

hp 


[ 1 + e 2 + 2ecos0] 2 [2(1+ cos0) ] 
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[ dr n 

ir D = 


JL 

2p 2 r 2 pB 


= “ "X 


~T~ [ 1 + e 2 + 2ecos0 ] 2 [ i + cos0 ] 


a 2 ( i - e 2 ) 


2 \ 2 


dr i 
a 

- dt Js 


r 2 R 
a 

hp 


{^sin0 (e^Jg) + [2(1 + cos0) - esin 2 0j (e T - Jg)} 


L S' 


dr r 2 R 


dt 


a 


AP L 
r 


AP M 


hp 


^sinfl U + [2( 1 + cos 6) - esin 2 0] 


m 


m 


dr 
2 

L dt J 


r 2 AP 
a r 

X3 

,2 ~2 


mjr dr ( 1 - e^) 


X 
L 2\ 2 


Lsin + 


M[2(l + cos0) - esin 2 0] 
[ 1 + ecos0] 


dr 

a 

Hence the final expression for is 


dr 
a 

dt 


2p 2 r a 2 pB 


~X [ 1 + e 2 + 2ecos0] 2 [ 1 + cos0] 


a* 1 ( 1 - e 2 ) 


.2x2 


r 2 AP 

xrr— - 

,2 q2 


mp 2 a 2 ( 1 - e 2 ) 


X 
, 2\2 


\Lsin0 | MIMJL± cos0)- esin 2 0] 
I 1 + ecos0 
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APPENDIX B 


COMPUTER PROGRAM SOURCE LISTING 



KILG0 HPC 

BXTERNAL F0RMLLA NUMBER - S0URCE STATEMENT 


06/ 18/ €5 

INTERNAL F0RMLL A NUMEERtS) 


1001 BETA=TAN2P ICCL»CM)-TA N2P I tCLS,CMSl-ieo. «GAHM A/PI 
2002 IF(EETA) 2000,2001,2001 

2000 BE TA=BETA*M0« . . . _ 

G0 T 0 2002 

_2OO1_C0NTINUE _ 

700 AMP=HKM/40C0.4l.9l4.44*SIG4-38*S IG2)*EXP ( - ( 2. -HKM/ ( 405 . +14 3 .«S IG) 

1 ) »»2 ) 

710 AMPS*^245+.0A25*SIG-.C625»SIG2 

U = AMP*l — #08*EXP^ 1 — (_( BETA— 250* ) /55») **2) +AMPS«EXP (-((BETA-135.)/ 

134. )*^2)) + AMP*4.E-6«BE'TA 

FACI = l.Ul_.rCN**2)«L . _ 

RH0 A =RH0A* F ACT 
3000 RETURN 
END 


,'IIC 
,'111 
112 
»' 113 
r 1.1 4 

r'115 

f 1 1 16 

/1 17 
/lie 
/U5 
♦ 3 2C 
W121 


K I L G0 T AN2P I 06/18/65 

EXTERNAL FORMULA NUMBER S0URCE STATEMENT. JNTERNAL F0RMLLA NUMBERl S ) 


FUNCTI0N T AN2P I ( X , Y ) 

TAN2P1 = ARCIAN( Y„/X)„ 

TAN2PI EQUAL 0R LESS THAN 2P1 
TAN2PI EQUAL. 0R„ .GJLEATER . THAN „.ZER0 
RADC EG = 57 **2957795 

luinj juz 

2 IF(X)5»4*'6 

4 TAN2P1 »1*:0E4 3C .. 

G0 T 0 20 

5 TAN2PI=180,0_ _ 

G0 T 0 20 

6 TAN2P1»0>0 . 

G0 T 0 20 

1 JF_LX)7^ 8, *9 __ _ 

7 TAN2PI *180.+RADDEG*ATaN{Y/X) 

G0_T0_2JO . 

8 T AN2P I *270 • 0 

G0 T 0 20 

9 TAN2PI-360*+RADDEG«ATAN(Y/X) 

G0_T0 20 

3 I F ( X ) 7 , 10,‘l 1 

10 TAN2P 3=90.C 

G0 T 0 20 

11 TAN2PI*RAPCEG«ATAN( Y/X ) 

20 RETURN 

END . . 



0985 
09E6 
C 9 8 7 


0988 

w 1 

C 9 8 5 

. / 2 _ 

C9SC 

t'2 

C9S1 

.*4 

C9S2 

5 

09 5 2 

4t 

C954 

»*7 

C 9 5 5 

•*a 

C956 

,15 

C9 57 

,'10 



C 9 5 5 

» 12 

C9S51 

,'13 

0955e 

.14 


.'15 

C955C 

,16 

C 9 5 5 E 

/ i 7 

C955F 

,’18 

095 9 I 

/19 


,'20 

C955F 

,'21 

0995 J 

422 
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KILG0 CNTftL 06/18/65 

BXTERNAL FORMULA NUMBER - SOURCE STATEMENT - INTERNAL FORMULA NU MeERCS) 


REAL I0MET »MASS*.INTERAt' IN^ERP 

DIMENS I 0N FTEN'Bt 153) ,FTEN( 153) , A Pi 153) 

OIMENS I0N RATH 9) yMAT2t 91 , NAT3 (9) , EFP ( 8 ) , EFE < 8 ) ,SFE (8) » 

ISFGl 8) , EFG( 8) *0ET(8 ) ,0EKlfi) ,0EE< 81 , MOT ( 8 ) , Me M ( 8 ) , M0E I 8 ) , AM AT ( 9 ) , 
1BMAT(9) ,CMAT( 9) ,A1MAT(9) ,'VilMAT (9 ) yWMAT I 9 ) »TERP ( 20 ) , I 0MET (2) • 
1SYIC(13 ),»PLT( e) y WDeRATI9) , WDM AT ( 91 , WSUB1 (9) , WSU31T(9) 

DIMENSION CDPR I M ( 25 ) , 

1 ATTACK (-45) , CN(45) » AREA (45) yMASSt 25 ) , I NTE RA ( 6 ) , I NT ERP ( 6 ) , 
1OAP0GE11O) ,CDA150) ,CUT0FF (2) »CATE13> ,C0RREC (110) 

D0U0LB PRBCISI0N KERTHyKAPPA t PHI 0yLAMD0 t - A 0 , B0 , 0MEGA y AE » 

1JJ, FH»'DD,'TTT» THETA tRRRyPSI/ 

lLAMCtVEf ALPV f EV v XS v YSvZSt'XDSt YDS >1D S t A X I St EC CEN , I NC, 

lASN0Dt , ARGP»ANeM».ECAN0M|iMNANi0M y XE ,YE ,2E f XCE , YDE f ZDE ,'XEP, YEP t’ZEPrf 
lXDE_P_,YDER y 'ZDEP, XP, YP, ZP,VPyALPP, EP, RPHI 0 f RLAMC0 y R0MEGA y RPSI0 y RO y 
iBETAt AM ATVBMAT, CMA T , A 1MAT y WMA T t W 1 R AT, 1 RK A PP A , RTHET A yXEC , YEC ,‘Z EC,’ 
lTEM_P»RRRE»‘P_SIE,tLAMCE f VEEVAUPVEtEVBtRATl , RAT2 , R AT 3 , EFP, EFE , SFE , SFG, 
1EFG,0ET»0EM» 0EE f M0T*M0M t M0E f Al f A2yA3 # Cl , C3, LRtCeSE/SRfSN f C2V • 

1B1, E2,iB3, AXISByECCB f I NCB ,' A SNB , AR GB , ANMB , EC A B , R N AB T 
lPITCHt'RANGEt ALTtECVt EEV f PERlGEt ApeGEE , PERIOD , M VAP 0G, MVPERG,* 
1MVPERD, B3MEG y L0MEG, PLTyXG, YG, ZG f XDG , YDG f ZDG , TF R 
1, XPL, YPLyZPLVXDPL, YCPL VZDPL, WD0MAT , kDMAT,WSU81 , WSUB1T 

DOUBLE PRECISION T2LX f DPR,RIE 

C0MM0N/HBLK/XKERTH, XA0,‘XB0yXAE , X JJ, XHH , XCD , X D A N Z M , XF , X PR I NT , 
1XATM0S, X[)IURN,XXLAG,XMVAyXMVP y XCDPM (25) , XMAS S( 25) , 

2XATTK1 45) **XCN( 45) » XAREA (45) # XINTA16) t XI NTPt 6 ) f XCAP0! 10) » 

3XCDA(50),XCUT(2),‘XXCATI3) ,XC0R(11C) ,XIN,XASN » X ARG 

4,XECLPT tXAMPRt XFTENB(153) ,XFTEN(153) y XAP(153),XSA,X$R 

C0RReN/3LK/KERTH,'Ae t B0^AE,JJ»HH t DC,TTT,RRR,PSI_, LA^O,VE,ALPVt 
1EV,XS, YS t <ZS,XDS, YDS, ZDS, AXIS* ECCEN, INC , ASN0C »ARGP,AN0M t ECAN0Rt 
.1MNAN0M, XE,'YE,ZE. f XDE, YDEtZDEt XEP, YB P , Z E P , XDE P , YDEP T ZD EP t XP f YP y ZP » 
1VP, ALPP, EP,RPF I0yRLAMD0,RZMEGA,RPSI 2 R 0 , BE T A , A M A T , B M AT , C MA T , 
1LAMC0,'KAPPA, 0MEGA,PFI0yTHETA, XG, YG,ZG,XDG, YDG,ZDG,TFM, 
1XPL,YPL*ZPL, XCPL y 'YCPL * ZDPLyWDZMATyWDMAT , b SUB 1 » WSUB 1 T y 
1A1MAT, WMAT,WlMATyRKAPPA,RTHETA,XEG, YEC,ZEC, TEMP,RRRE,PSiE f LAMCE, 
1VEE, ALPVE,‘EVE,MAT1,MAT2,MAT3, Al, A2, A3 yCl,C3,LRtC0SE,SR,SN,C2V, 

1B1, B2,'B3,‘AXI Se*ECCB , INCB, ASNB , ARGB , ANMB y EC A B » M NAB » 

1SH0RT,1XL0NG 

DATA I0MET/6HSH0RT /, I 0ME T l 2 ) /6H NPL ZNG / 

DATA CN/6HALPFA / y C N ( 2 ) / 1 . / y C N ( 3 ) / 3 60 . / f CN ( 4 ) / 6 HE ND /, 
lCPPRIM/1. / jCDPRIM( 2 )/0./,'CDPRIM(3I/6HENC /, ATTACK/ 0./, 

2 AT T ACKi ( 2) /360*/*AT7 ACK ( 3 ) /6HEND / f AREA/6HALPHA / y AR E A { 2 ) 

3/1./, AREA_1 3 ) /360./, AR E A ( 4 ) / 6HE ND /, MASS/6HC0N /, MASS (2) 

4/1 •/, MASS! 3 )/C./yDAP0GE/-2O./ # DAPeGE( 2) /C. / , PR I NT /6HN 0RM AL/ y 
5ATM2S/6HARCC /,DILRNL/6HMEAN / , EC L I PT/23.4436/ 

DATA(C0RREC( I )Vl=l,Al>/ 

1 .12, 500.; ,'*13,400. v . 1 A 2, 3 50, , .184y3C0. y .22 y 280. , . 275 y 260. y 
1 *304,2 50. 34 ,24 0., .385,230. , .42 5 y? 20. , . 4 7 y 2 1 0 . y . 5 2 , 200 . , . 5 6 5 y 

1190. # *62j'18C. f •7, < 17C. y .'8,'160.f.84yi55.,.66,150.fl.,145.,l.,0., 
16HEND / 

DATA tDATE(I), I=l,3)/9.’,18. ,1964.7, SA/O./ 

DATA S0/1OC./, AMPR/C*/ 

DATA XG/O.CO/, YG/0 % C0/yZG/0.DC/, XCG /O . DO / , YDG/O .DO/ y 
lZDG/O^DO/yTFM/O.DO/, XLAG/C^/ 

DAT A ( D AP0GE ( I ) y I = 1 , 1 0 ) /- 5 . y 677 8 . ,-ilC. ,6 578. , -2 0 . , 0 . 1 0 . , 0 . , 0 . ,C i / 

DATA KERTH/396603.2C0/y 
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1KAPPA/1052 D0/, PHI 0/2 8. 5D O/,> LAMD0/gO.5PO/ f A0/6378. 165D0/, 

2B0/6356.704DO/,0MEGA/15.O41O67O5DC/ » A£ /6378 • 165D0/,' 

3JJ/.0Olfc2345DC/*HH/.O0OCO575DC/,DD/.O00CC7875D0/ f _ . 

4DAN0H/lO*/tF/298. , 3/* 

8 _ _ __ PRINT/6HN0PMAL/, 

9 1 NC / 30 • / ,01 0 / 1 8 0 • / » C A P 0 / 1 SC 2 / 

DATAtAP ( I), 1 *12141)/ 

12.34,19532,2.48,1958.eyl.e9, 1558. 5, 2. 51, 1959. ,2.97,1959.1,2.42* 
21959.2,2256, 1959.’3j 2. 59,1 959.ji, 2. 92, 1959. 5, _3. 16^, 1959. 6,3. 5_0_, 1959. 7 
3, 2. 46,<1 959. 8, 2. 89, 1559. 9 ,‘2 257,1960. ,2 . 32 ,1 960. 1 , 2 . 44 , I960 . 2 , 3 142* 1 
1960.3,»2.79, 

11960.4, 2292, 1 56025, 2. 71 , 1 960. 6 ,2 .*75 ,1 96C.7 , 3 . 23 , 1 960. 8 ,3 .44 , 1960.9 

I , 2 .49,1 19 61 2.27/15 61. 1,2.32,196122,2 .29 X 1 96 1.3,2.40, 1 96 1 .4 , 2 ;69, 1 

1961.5, «2.26, 

__ 1_1961 .6 , 2 • 1 8, 156127,1.85,lS6l.e,l_.5j,1961.9_,1.49, 1962. ,1.73, 1962.1, 

I I. 8 1,1 962 22, 2. 31, <156 2. 3 ,1.60,1962.4,2.18,1962.5,2.62,1962.6,2.94,1 

1962.7,t3.08, __ _ 

11962.8.2.01.196229. 1.75. 1962.. 1.72 .1963. 1.1. 54. 1963. 12. 1.51. 1963.2 
llfl.86, 196 3.25, 2 208,196 3 . 38 *2 . 06 , 1 963 . 46 ,2 » 2 3 , 1 963 . 54, 2 . 35, 1 96 3 .62 

1.3.2 6,* 

11963.71.2 220, 1963. 75, 2. 02, 1963. 8 8 *1. 9 8, 1963. 96,2. 06_, 1964. 04 ,_2221, 

11964.12.2216. 1964. 2 1,2. ’25, 1964. 2 9W1. 8 1,19*64. 38, 1.73, 1964. 46, 1.89, 
11964.54^1268, 1 964. 6_2,1. 78 V1964.7 1,1.67, 1564. 79, .90,1964.88, ._77, 196 

14 .96 » 2 • 5,‘l 96 5 , , 225, 2000 • , 6HEND i 

DATA (PTENB ( I ) , 1= 1,571 / 

1243. 6. 1 195 8.. 230. 7. 1558^5,226.5, 1959. ,208. 9, 1959.5,180.5, I960., 

2 161., 1960 25, 130.8, 196 1 . , 1 04 . 8 , 1961 . 5 , 99 . 3 , 1 962 89 v_7 , 1962 . 5 , _ 

382.7.19632.80.8. 1963.5, ‘ 77. 9, 1964. ,i7C. ,1964.5,75. ,196 5., 

487.^196525, 131. ,1 966.5^186., 1967. 5 ,200. ,1968. 5, 190 x , 1969. 5, 

5 163.. 19702 5. 142., *1971. V 12 8 2 , 1 571 . 5 , 108. , 1972 . 5 , 94 . , 1973 . 5, 

681.. 197425.75.. 1975. .75.. 4 197 5. 5, 

46HEND / 

DATA l FTENII ) , I=1,3)/0.,Q.^6HEND __ ✓ __ ___ 

D0 1 I*l,»8 

£FP( U — 02 _ __ _ 

EFE ( I ) *-02 

SFE ( n»-02 , 

SFG ( I)— 02 

PLTJJJ *-0 2 _ 

EFG ( I ) *—02 

0ET _(.n *-02 __ _ . 

0EM( I) —02 

0EEt I)— 02 _ 

M0T ( I) *-02 

M0M( n *-02 _ _ 

1 M0EU>— 02 

75 _ CALL MAVR1M I ERR 2 5FKERTH/KERTH r 5HKA PP A , K APP A ,4HPH I 0, PHI g , 

’ 15HLAMO0,LAM-C0,2HA0 f A0,2HBeyB0,5HeMEGA, 0MEGA,2HAE, AE, 

12HJJ,J J,2Ht-H,FH,2HCD,DOV5HI0MET, I 2 MET , 3H£FP , EF P , 3HEF E , EFE , 
13HSFE,'SFE,‘3HSFG^SFG, 3HEFG, EFG, 3H2ET ,0ET,3H0EM,0EM, 

13H0EE,»0EE, 4 3HMeT,M0T,3HM0H,M0M,3HM2E ,M0E , 3H PL T , PLT , 2HXG , X G, 

12HYG,YG,2HZG,ZG,3HXCG,XDG V3HYDG, YDG , 3‘HZOG , ZDG.3HTFM, tFM , 
__15HDAN0M,OAN0M, 1HF,F, 6HCDPR I M,CDPR IM_r6HATTACK, ATTACK, _ _ __ 

1 2HCN,CN ,4HAR E A , AREA, 4FMASS VMAS S, 6H I NTE R A , | NT ER A , 

16HINTERP,INTERP,6HCAP0GE,CAP0GE, 3HC CA , CD A , 5H PR I NT , PR I NT , _ 

16HCUT0FF, *CUT0FF,.4HC ATE 4 DATE, 5HATM2 S , ATMes , 6HC0RREC , C 0RREC , 


/I 

41 

/4 

*7 

/8 

»*9 

t'l 0 

Vn 

212 

t-13 ,14 
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l6HDIURNL,'DlURNL,3HLAG,XLAGV4HFTEKvFTENV5hFTEI\B,FTENB f 2HKP.AP, 

F0RMLL A NUMEERl S ) 

— 


16HECL1PT,ECLIPT,2HSA, S A , 2HS 0 , S 0 , 4H AMPR , AMPR) 

V15 




IF( IERRJ76, 77,76 

V16 



76 

WRITE! 6,7e) 

V 1 7 

,18 


78 

F0RMATI 1H017HCAR0 FERMAT ERROR) 





CALL P DUMP 

*■19 




GOT 075 

V2G 



77 

C0NT INUE 

V21 




I F 1 2 ET • EO • — 0 • )G0 T0 4 

,‘22 

,23 

,24 


IF(0ET(2).GT.1.)G0 70 3 

,125 

,26 

V27 


00 2 I *3,‘8 

*'28 




IF!0ETm*NE.-O.)G0 T0 20C 

,'29 

,30 

V31 

2 

C0NTINUE 

i*3 2 

,33 



MVAP0G * CET • ( i; + 0ETI2) ) 

V34 




MVPERG = 0ET*( 1.-0ET12) 1 

V35 




SWIT-1. 

**36 




G0 T 0 100 

V37 



3 

D 0 300 1=3,8 

V38 




IF! 0ETt I).*NE.-O.)G0 T0 301 

,'39 

,40 

V41 

300 

C0NT INUE 

,'42 

,43 



MVAP0£-0ET 

V44 




MVP ERG * 0ET ( 2 ) 

,'4 5 




SWIT-1 . 

*’46 




G0 T 0 100 

,<4 7 



301 

TEMF = (.ZET+0ET( 2) ) /2. 

,'48 




0ET(2)*(3ET-0ET(2))/(0ET+0ET(2)) 

V49 




0ET=T6MP 

V5G 




G0T02OO 

.'51 



4 

I F < eEM.EO.'-O. )G0 Te 7 

V 5 2 

,53 

V 54 


IF! 0EM12) .GT.i;)G0T0 6 

V55 

,56 

V 57 


00 5 I =3, *8 

,15 8 




IF10EM! I) -NE . - 0 . ) G0 T 0 2C0 


,60 

VC1 

5 

C0NT INUE 

VC 2 

»C3 



M V A P 3G = 0EM « ( l.+0EM(2) ) 

VC 4 




MVPERG = 0EM* ( 1.-0EMI2) ) 

VC5 




SWIT-1. 

VC6 




G0 T 0 100 

VC7 



6 

00 302 1=3,8 

VC 8 



302 

CONTINUE 

VC 9 

,70 



MVAP0G-0EM 

V 7 1 




MVPERG-0EM (2) 

,‘72 




IF (0EMm.NE.-O*:) G 0 T 0 303 

' V 73 

,74 

V75" 


SWIT-1. 

V76 




GC T 0 100 

,77 



303 

T E M P = t 0EM + 0EM ( 2 ) ) /2. 

V 7 8 




0EM( 2) *(0EM-0EM(2) ) /! 0EM+0EMC2) ) 

V79 




0EM=TEMP 

veo 




G0T02OO 

vei 



7 

IF( 0EE.EO.-O. )G0 Te 10 

ve2 

,83 

,•84 


IF! 0EE! 2) .XT • 1 • )G3T0 9 

V 8 5 

,86 

V87 


00 e 1 - 3 ,' 8 

ves 




IF! 0EE t I ) .'NE.-O. )G2T02OO 

V 69 

,90 

,91“ 

6 

C0NTINUE 

V92 

,93 



MVAP0G-0EE*! 1.+0EE! 2) ) 

V94 




M VPERG* 0EE» ( 1.-0EE! 2 ) ) 

V 9 5 




SWIT-1. 

*96 
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G0T01QO 

9 D0 204 1-3*8 

I F t 0EE l I) •NE*-O«)G0T03O5 

304 CONTINUE 

MVAP05-0EE^ . 

MVPERG*0EE(2) 

SWIT-1. __ . 

G0T01OO 

30 5 _TEMP*t 0EE+BEE ( 2 ) V/2_- 

0EE(2)»(0EE-0EE(2J)/(0EE+0EEI2)) 

.0EE=TEMP . 

G0T02OO 

10 IF I M0T.EO.-O. )G0 T0_13 

IF! M0T12) aGT* 1« )G0 T0 12 
D0 11 I =3*' 8 

IFIM0TI I ) :NE.-O.)G0T026C 

11 C0NTINUE 
MVAP0G-M0TM 1.+M0TC2) ) 

MVPERG-M0TM l.-M0T(2>) 

SWIT-1. 

G0T01OO 

12 D0 206 1*3*8 

IFtM0T( I).;NE.*O.)G0T03O7, 

306 C0NTINUE 
MVAP0G*M0T 

MVPERG*M0T ( 2 ) 

SWIT-1. 

G0T 0100 

30 7 TEMP-t M0T+M0T(2))/2. 

MKT 12 ) * (M0T-M0T(2) J/IM0T+M0TI2) ) 

M0T-T 5MP 

G0T 0 200 

1 3 IFt M0M.EO«!-O* )G0T0 16 

I F ( N 0M l 2 ) • G T . 1 J ) G 0 T 0 1 5 
D014 I = 3,!8 

IFIM2MI I). , NE*-Q*)G0T02eO 

14 CONTI NUE 

MVAP 0G-M0M * ( 1.+M0M12) ) 

MVPERG* M0M* l l.-M0M(2) ) 

SWIT-1. 

__ G0T01OO 

15 DO 308 1*3,8 

IFtM0Mt I ).‘NE.-O.)G0T0369 

308 CONTINUE 
MVAP0G-M0M 
MVPERG*M0M12) 

SWIT-1. 

G0T01OO 

309 TEMF = LM0M’*:M0M{2) )/2* 

M0M( 2) - (M0M-M2M(21 ) /(M0M+M0M1 2) ) 

M0M-TEMP 

G0T02OO 

16 IF(M0E.EO^-O. )G0T0 2Q0 

I F( M0E t 2) «:GT* 1 • )G0T0 18 

00 17 I=3V 8 . . 

I F { M0EM I).NE.-O.)G0T02GO 


V57 

^58 

.'99 

,100 

^102 

,103 

*164 


V105 

*•106 

^167 

viee 


V 109 

me 


mi 

V112 

,113 

,'115 

,116 

me 

.•119 

,120 

V 122 

^,123 

,*124 


.125 

,126 

.127 

,'126 

,'129 

,130 

,132 

,133 

,124 
V 1 35 
»' 1 36 
,<137 
,‘128 


V 1 39 
,*1 4C 
^141 
^142 

,143 

,'145 

,146 

V 148 
,'149 

,150 

V 1 52 

,152 


,*154 
,'155 
,'156 
V 1 57 


,‘158 

,159 

,160 

,162 

,163 

V164 

V165 

,166 


• 167 
,'168 
,'169 


,'17C 
.17F 
V 172 

,17? 

,'175 

,176 

,'178 

,179 

T18F 


^101 


^ 114 
V 1 17 

.121 


,'131 


,144 

V147 

^ 15 F 


,'161 


.174 
»■ 1 77 


,'181 
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5 ) _ 


17 

CONTINUE 

VI 82 

,183 



MVAP0G-M0E* t 1.+F0E12) ) 

VI 84 




HVPERG»M0E*( 1.-M0E12 > 1 

VI 85 




SW I T*1 • 

VlSfc 




GOT01OG 

VI 87 



18 

D0 310 1-3*8 

vise 




IF(M0E( I) . 4 NE.-O.)GeT0311 

Vl 85 

,190 

V 19 1 

310 

C0NT INUE 

V 152 

,193 



MVAP0G-M0E 

VI 54 




MVP E RG -F0E ( 2 ) 

V 155 




SWIT-1, 

V 1 56 




G0T01OO 

VI 57 



311 

TEMP-t M0E+M0EI2)) /2. 

V 196 




M0EC2)*(M0E-M0E{21 ) / ( F0E+F0E ( 2 > ) 

V 1 59 




M 0E = TEMP 

V 20C 




G0T02OO 

V2C1 



200 

SWIT-0. 

CALL TRFMt K E R TH , K AP PA , PH I 2 j L A FD0 * A 0 , B 0 , 0 FE G A , A E , j J , HH , 

V 202 




1DD* I 0MET, E FP , EFE*'SFE*SFG f 'EFG*0ET ,eEF, BEE ,M0T ,F0F , F0E , 





1 PLT , XG, YG»'ZG , XDG ,'YCG , Z DG , TF M f F VA PeG , M V P E RG * I NC B , A S NB , ARC B ) 

,•203 




MVAP0G-MVAP0G+AE 

» 2CA 




MVPERG-MVPERG4AE 

V2e5 



100 

XKERTH-KERTH 

V2G6 




X AMPR- AMPR 

V207 




X A0 * A0 

vace 




XB 0 = B0 

V205 




XAE=AB 

V21C 




XJJ=JJ 

V211 




XFH=HH 

V 2 1 2 




X S A= SA 

V 2 1 3 




X SR = S0 _ . _ 

V214 




X CD= DO 

V215 




XDAN0M-DAN0M 

,’216 




X F a F 

V217 




XPR INT-PR1NT 

,216 




XATF0S-ATM0S 

V215 




XD1 URN=DIURNL 

V 2 2C 




xxlag-xlag 

V221 




XMVA=MVAP0G 

V222 




XMVP*MVPERG 

V222 




D0 50 I = 1 *' 2 5 

,*2 2A 




XCOPMl I ) =C CP R IM ( I ) 

V225 



50 

XMASSt I I=MASS< I ) 

V2 26 

,227 



XECLPT-ECL 1PT 

V 2 26 




D0 tO 1=1,-153 

,’225 




XFTENB t I)»FTENB( I ) 

V23C 




XFTENt I ) = FTEN l I ) 

V 2 3 1 



60 

X AP ( n -API I ) 

V232 

,233 



D0 51 I = 1 ,* A 5 

V 2 3A 




XATTKt I )=ATTACK l I } 

V235 




XCNl I)-CNt n 

V2 36 



51 

XAREAt I ) = A R EA ( I ) 

V 2 37 

,238 



D3 52 I =1*'6 

V 2 35 




X I NT A 1 1 ) = 1NT E R A ( I J 

V2AC 



52 

X INTPl I ) = I NT E R P ( I ) 

,'2 A 1 

,2A2 



D0 53 I = 1 1 0 

V 2 A3 
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53 XDAP0( 1 )=DAP0GEC 1 ) .'244 ,245 



DB 54 I = 1 f * 5 0 

,'246 

54 

XCCA ( I ) =CD A t I ) 

,‘247 » 248 


XCUT=GUT0FF 

,’249 


XCUT(2)=CUT0FF12) 

,' 2 5C 


DC 55 I =1 ,'2 

V251 

55 

XXPATl 1 )=DATE < 1 ) 

,252 ,253 


D0 56 I = 1 *> 1 1 0 

,*254 

56 

XC0RII )=C0RRECtI) 

,‘255 ,256 


1FI SW1 T ) 57 * 57* 58 

» # 257 

57 

X I N= INC B 

,*258 


X ASN=ASNB 

,* 259 


XARG*ARG8 

,*26C 


G 0 T 0 59 

,'261 

58 

X IN= INC 

,262 


X ASN=CAP0 

,'2 62 


X ARG*W0 

,264 

59” 

CALL LilFE 

,'265 


GCT0 75 

,•266 


*267 


END 



KILG0 LIFE 06/18/ t 5 

EXTERNAL FORMULA NUMBER - SOURCE STATEMENT - INTERNAL FORMULA NU MBERLS) 

SUBROUTINE LIFE 

REAL J J » K ER TH* INTA* INTP ,MA SS , MT , I* TER At I NTERP# I NC , NI 
DIMENSION CATE C 3) t XMBNTH 1 12 ) 

DIMENSION C0RRECC11C) »S0LAR(3C1) 

DIMENSION TN(6) f .INTERAl£UTNl(6) 9 INTERP(6)4 
1C0SE(365),»E( 36 5),'CCPRIM(2 5) , AREA (4 5 ) , CN ( 45 ) , 

2ATTACK145) ,STEPA{ 365) ,STEPP(365) ,MASS<25> 

DIMENSION FTENBI153) ,FTEN(153) ,AP1153) 

COMMON /ARCC/TEMPT t TEMK f PRESStPOMf, 

1PSPO,RHO,RH0SR0, VI SC, VISCSL,KVISC,)VS,G 
DATA DPR/57,2957795/, P I / 3 . 1 41 59291 / , SNBC I /6HS I NE / 

1,BC ITIM/6HTIME / 

DATA AID/6HA /,PID/6HP / »0E TI D/6HDE TAIL/, 

1SH0ID/6HSH0RT / 

DATA ENDID/6HEND / 

DATA l XMBNTH l I ) *1 »1 , 1 2) /31 , 2 e. , 31 . , 30 . f 31 . f 30. , 31 . , 31 . , 

130,, 31. ,30, ,31./ 

DATA ARDI D/6HARDC /, LSS ID/6HLSS PC /, DI N2R/6HN0RMAL/ , 

1DIMM/6HMEAN / 

DATA AT1/6HARCC / , AT2 /6HUSSTD / ,.AT3/6HP0E / i AT4/6HSMALL /, 

1AT5/6HSPE0AR/ 

COMMON /HBLK/XKERTH,X AO V XB 0 ^XAE,XJJ, XHH, XCD^ XDANOM,XF,XPRINT f 
1XATM0S, XDIURN,XXLAG,XMVA,XMVP,XCDPM(25) ,XMASS(25J , 

2XATTK14 5) ,'XCN(45) ,XAREA{45) , X I NT Ai 6 ) , X I NT P ( 6 ) , XC A P0 1 10 ) , 

3XCDA(50),*XCUT(2) ,'XXCATI3) 4 XC OR ( 1 1C ) , X l N , X A SN , X ARC 

4, XECLPT, XAM.PR, XF TE NB 1 1 53 ) , X F TE N < 1 53 J , X A P ( 1 53 ) 4 X S A , X SR 

C0MM0N/CLK5/AP0yPERl*TIME,'A6,SINI ,9 0 ,F 4 J J ,KE R TH , 

ICOSI, .JCNT.CDPRIM, AREA, ATTACK, CN, 

2MASS, AD0T,'PD0T,iPD0AC, TIMED 

3, C3SE,'E, DA 02, 'PER, TIME l/HH f DE03 

4 , C A POM 1 f CAP I D, SMAM1 , ADTM1 yAPOMl , SMAW, SMACM1 , SM A I D ,C APM1 , C APW 

5, CAP0,«DATE, XMeNTH,FTENB,AP 

6, INTERA, I-NTERP,DD,CAN0M,OAP0GE(1O1,CDAC5C) 

7 , PR I NT , CUTOFF (2), A I , RP A I , S ACOT I 

8, REV0U,MT,‘VPI ,PDI 

9, PN(6),AN(6),REV1 

1 , CORREC , SOLAR, ATMOS, FTENVD I UR NL, XL AG, RH0XX , S 0 , S A 


1,EI ,R1PP,*RIPA, AMPR 

00 10 I = 1 3 6 5 4 1 

C0SE( I ) =0^ 42 

E ( I ) *0 • " 40 — 

STEPA<I>=0. 44 

10 STEPP! I )*0 * ■ 4 5 ~T~ 

REV 1 *0 • 4 ! 

REV0L-O. 4 e 

TIMEl-O. 4 S 

00.104 1 * 1,5 * “ ,*10 

INTERA ( I ) »C • f< ll 

104 INTERPtn-C. ‘ “ ,02 TX3 

CD«0. 414 

T IME *0 • ,'15 

DO 7000 I »4 * 1 1 0 4 ifc 

7000 C0RREGin»C. ^17 ,TaF 

00 857 1*1 , 153 _ ^19 

FTENBI n*XFTEKB<I) ‘ '~72e 


153 



KILG0 LIFE " ’ 06/18/ 6 5 

EXTERNAL _F0R MU LA NUMBER SOURCE STATEMENT, - ..INTERNAL FORMUL A NUMB ERLS ) 


FTEN ( I ) =X FT EN ! I ) 

857 AP(n-XAP!I) 
eclipt-xeclpt 

APPR *X AMRR 

SA=XSA. 

S0-XSR 

KFRTH»XKERTH 

A0=XA0 

B0^XB0 

AE'XAB 

JJ=XJJ 

HH=XHH 

DDfJtDD 

OAN0M-XDAN0M 
_ F = XF 

PRINT-XPRINT 
ATM0S=X ATMOS 
D IURNL *X0 1 URN 
XLAGMXLAG 


850 

A00=XMVA 
P 00 = XM V P 
D0 850 1=1,25 
CDPRIMt IJ»XCOPM(I) 
MASSU )=XMASSU ) 

00 851 1 = 1 ,45 

• 


ATTACK! I)=XATTK( II 
CNl I I-XCNt I ) 


”851 

AREA! 1 )=XAREA( l) 
D0 852 1=1,6 


852 

INTERAI 1 1 =X I NT A { I 1 
INTERP { I)=>XINTPt I) 



D 0 853 1 = 1,10 

853 DAP0GB1 n»XDAP0(I) 

00 854 1=1,50 

854 CDAtn-XCOAII) 

CUTeFP-XCUT 

CUT0FPI2I a XCUT( 2) 

00 855 1=1,3 

855 DATEm*XXCATtI) __ 

D0 e56 1 = 1, lie 

8 56 C0R_R EC l I.) =*XC0R t I ) 

INC=XIN 

CAPg=XASN 

W0 = X ARG 

3015 CONTINUE _ _ __ 

2700 FORMAT 11H0, 1A6/ ) 

WR I TEl 6, 3Q ) 

30 F0RMAT11H1 , 2 5 X , ?7H* * * * * EARTH CONSTANTS **•**) 

WRITE! 6,31 ) J J,HH,<C C,KERTH^AE,F 

31 F0RMAT 11H021H EARTH SECOND HARMON ICE 15 . 8 , 5X, 

120HEARTH THIRC HARM eN ICE 1 5 • 8 , 5X , 

221HEARTH FOURTH H AR M 0N ICE 1 5 - 8 / * 

_ 31H A OH E ART I- GRAVITATIONAL CONSTANT _IK_IL0MET£RS, 
42 3 H CUBED/ SECONDS SQUARED ) B 1 5 . 8/ , 

51 H 3OHEQUAT0R I AL RACIUS I K I LOMETER S )E1 5, e, 5X , 
611HELLIPTIClTYE15.e/) 


V22 
V?4 
*‘2 5 

. .. /26 
^27 
2 8 

,23 

,'29 


V30 


*•31 


,<32 


^33 


,34 


^35 


,'36 


^37 


/38 


*<3 9 
V4G 


/4 1 


,<42 


t 1 4 3 


,<4 4 


,'45 

,46 

,<47 


,'4 8 


,'49 


,<50 

,51 

,<52 


,'53 


,’54 

,55 

",'5fc 


,'57 

,58 

,<59 


,'6C 

,61 

V62 


,<63 


,<64 


/ 6 5 

,66, 

V67 


^68 

?69 

V 7 0 


V 7 1 


/72 


/73 

- 

/74 

,75 

,*76 

,77 ,’78 


♦ 
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.EXTERNAL F0RMLLA NUM8BR_ - SOURCE STATEMENT 

- 

INTERNAL F0RMLLA NUMEERtS) 


. 


WRITE! 6,1*C0> 


•'79 

,60 



1*00 

FORMAT ( 1H0,25X»32H*«*** BALLISTIC PARAMETERS +****) 







IF(C0A-SNBCI)32 r 33,32 


vei 




33 

WRITE! 6,3*1 


t‘B2 

no 

W 



_J* 

F0RPAT ( 1H011HSPECIAL COA) 







WRITE! 6 , 1 1 CO 1 


V8* 

,85 



1100 

FZRMAT! 1H 17HREVICYCLES/0RBIT) , 5 Xy 1 CHT I ME ( DA YS > ) 







K K = 2 


,e6 




1103 

I F(CCA|KK)-ENC ID) 11C1, 1102j*llCl 


V 8 7 




1101 

KK=KK+2 


ves 





G3T011O3 


V89 




1102 

KK=KK-2 


,'SC 





D2 110* I~1,KK«2 


V51 




110* 

WRITEl6,llC5)CDAt 1+1) , CCA (1+2) 


,'52 

,53 

.9* 

,55 

1105 

FORMAT ( 1H E15.8^X,E15;e) 






32 

WRITE16,35) 


*56 

,57 



35 

F0RMAT l 1H02AHANGLE 0F ATTACK FUNClieNI 







WRITE! 6,36) 


*'58 

,59 



36 

FORMAT ( 1H 1*HALPHA( DEGREES) ,6X, 






116HAN0MALY! DEGREES) ) 







KK = 2 


vioc 




702 

IF! ATTACK! KK-1 )-ENC ID) 7C0#701*700 


,'101 




700 

KK=KK+2 


,‘102 





G0 T 0 702 


,'103 




701 

KK=KK-?2 


/10* 





D0 38 I=1,'KK,2 


V 1 C 5 





WRIT El 6,37 ) AT TACK! I ), ATTACK < I +1 ) 


VI 06 

,107 

vice 


37 

F0PMATI1H E15»8»5X,E15«8) 






38 

CONTINUE 


vies 

,110 




WRITE! 6,39) 


,111 

,112 



39 

FORMAT ( 1HO28HC0EFF IC IENT ZF DRAG FUNCTI0M 







KK = 2 


V 11 3 




705 

IFICN! KK)-END 10)703 ,70*,7C3 


Vll* 




703 

KK=KK+2 


,-115 





G3 T 0 705 


V 1 16 




70* 

C3NT INUE 


,117 





IF! CN^BCITIM )*0, *1, *0 


V 1 IE 




*0 

WRITE! 6, *2 ) 


,'115 

, 120 



*2 

FZRMAT! 1H 2HCNyl8X, 1 *H AL PHA ( D EGR E0 S ) ) 







GO T 0 ** 


V 1 2 1 




*1 

WRITE16,*?) 


V 1 22 

,123 



*3 

FORMAT ( 1H 2HCN yl8X, lOHTIMEtDAYS) ) 






** 

KK = KK-i2 


V 1 2* 





DO *6 I=1,'KK,2 


,-125 





WRITE! 6,*5)CN(I+l) r CN! 1+2) 


,.'126 

,,127 

,'128 


*5 

F 2RM AT ( 1H E15.8^5X,E15.8) 






*6 

CZNT INUE 


,'125 

,130 




WRITE16,*7) 


V 1 3 1 

,132 



*7 

FORMAT 11 H07HCCPRIME,13Xi 






119HPER IGBEIK IL0METERS) ) 







KK = 2 


V 1 3 3 




708 

IF! CDPR IMlKK-1)— ENC ID) 7C6 ,1707,706 


,'13* 




706 

KK*KK+2 


V 1 35 





G0 T 0 708 


,'136 




707 

KK = KK-<2 


V 1 37 





D0 *9 1=1 ,*KK , 2 


V 1 38 
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KILG0 LIFE 
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S0URCE STATEMENT 


06/18/65 ~ 

INTERNAL F ORMUL A NUMEERtS) 


WRITE t6,48)CPPR IM( I? , CDPR IM f I + 1 ) 

48 FZRKATCH E15.8,5X,E15.8) 

49 CONTINUE 

WRITE! 6,50) 

50_ FORMAT tlH028HEFFECT.iyE C.RAQ AREA FUNCTION) 

KK^2 

711 I F I ARBA(KK)) — EN!DID)7C9»T10v709 

709 KK=KK+2 

G 0_ T 0 711 _ 

710 CONTINUE" 

IF! AREA— BCITIM) 51,52,51 . . 

51 WRITEl.6,53) 

53 FORMA T t 1H 2 OHAR E A ! M ETER S SQUARE D ) ^3 X,' 

1 1 4HALP HAl DEGRE E S ) ) 

GO TO 55 

52 WRITE!6,.54) 

54 FORMAT t 1H 20HAREA1METERS SQUARED)y3X, 
ll"OHTIME(OAYS>) 

55 CONTINUE 

KK=KK-2 

DO 57 I =1 ,'KK , 2 

WRITEt6,56)AREAU+l), AREA I 1+2) 

56 FORM AT { 1H E 1 5 • 8 , 8X , E 1 5 e ) . . „ 

57 CONTINUE 

WRITE! 6j 5JL> 

58 FORMAT ( 1H014HMASS CONSTANTS) 

IF[MASS-9CITIM)59,6C,59 _ . 

59 WRITE16,61)MASS(2) 

„61 FORMAT ( 1H 2 3H INITIAL M A SS ( K I L OGR AM S ) E 1 5 - 8/ ) 
I F { MASS C31 ) 62, 70, '6 2 

62 WRITE ! 6 ,63) 

63 F3RMAT11H 23 HM ASS DECAY R ATE ( KG/ DA Y ) V3X , 

114HFINAL M A S S ( KG ) ) 

KK = 2 

_ 714 1F(MASS(KK+1 J-ENDIC )712, 713,712 

712 KK=KK+2 

GO TO 714 

713 KK=KK-2 

DO 200 1 = 1, KK, 2 .. . 

WRITE! 6 r64 )M ASS ( 1+2 ) , MASS! 1+3) 

.64 FORMAT ( 1H E 1 5 . 8 , 1 IX , E 1 5 . 8 ) 

200 CONTINui 

GO TO 70 

60 WR I TE! 6,65) 

65 FORMAT ( 1H 1 5HM ASS ( K I LOGRAMS )_j_3X,_ . 

HOHTIME(DAYS) ) 

KK = 2 

717 IF( MASSIKK ) - E N D I D ) 7 1 5 , 7 1 6 7 15 

715 KK=KK*2 

GO TO 717 

716 KK=KK-2 _ . _ _ 

DO 202 1 = 1, KK, 2 

WRITE! 6,66)MASSt I + 1 ) ,MASStI+2) __ . 

66 F 0RMAT { 1H E 1 5 * 8 ,5X, El 5- 8 > 

202 CONTINUE 

70 CONTINUE 


Vl39 

, 140 _ 

,142 

? 143 

V 144 

,145 

V146 


^147 


,148 


/ 149 


V15C 


Vl51 


Vl52 

,153 

,‘154 


,155 

,156 

,-157 


,'158 


V 1 59 


viec 

,161 

, ! 1 6 3 

,164 

.,'16 5 

• 166 

,-167 


,‘168 

,169 

V 1 71 


,‘172 

__* 17 3 

,'174 


V 1 75 


,'176 


,177 


V I 78 


V 175 


vise 

,181 

VI 83 

,184 

V185 


V 1 86 

,187 

V 1 88 


V 1 69 


V19C 


VI 91 


V 192 


, 193 


yl94 

,195 

V 1 97 

,198 

V 1 95 


,‘14_1 


,>162 


Vl70 


,'182 


,‘196 
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EXTERNAL F0RMLLA NUMBER - SOURCE STATEMENT 

INTERNAL F0RMJL A 

NUM8 ERl S ) 




WRITE! 6 r l4Cl) 



V20C 

,201 


1401 

FORMAT ( 1H0,25X*30H«***« DENSITY PARAMETERS « 

,«•) 






DEL YR>0 ATE I3>- 1957. 



,*202 




XDAYS»DELYR*365. 



V203 




XLEAP»DELYR/4. 



»'2G4 




I -XL EAP 



,*205 




XLEAP-I 



,'206 




XDAY S»XDAY S + XL E AP 



,(2 07 




K=DATBt 1) 



^2oe 




YDAYS-O. 



,*205 




K=K— 1 



,<21C 




D0 1700 l-l.K 



Y2 1 1 



1700 

YDAYS-XM0NTHI D+YOAYS 



,'212 

,213 



XDAYS»XDAY.S+YCAYS + CATEC2) 



/214 




IF! CATE (l)-2. ) 1702, 1701, 1701 



,*215 



1701 

XLPE=DATE13)-1956. 



,'216 



1704 

XLPE=XLPE-i4, 



V 2 17 




IF( XLPE )17C2, 1703,1704 



,* 2 ie 



1703 

XC AYS= XDAY S+ 1 « 



•*219 



1702 

XDAYS=XDAYS-365. 



2 2C 




WRITE! 6, 17C 5 ) CATE , XC A YS 



V 2 21 

,222 

,'223 

1705 

FORMAT ( lH06HMeNTH=E5.2^5X V4HDAY=E5. 2V5X ,4HYE ARE11.4,5X, 






133HCAYS ELAPSED SINCE DEC. 31 , 1957E15.8) 






1402 

IFt ATM0S-AT1 ) 6002, 6COOV60C2 



,*224 



6000 

WRITE16,60C1) 



V 2 25 

,226 


6001 

FORMAT ( 1H 20H1959 ARDC ATM0SPHER El 







G0T0 6016 



,'227 



6002 

lF(ATM0S-AT2)6OO5,6CO3y6OC5 



,* 2 26 



6003 

WR I TEt 6, 60C4 ) 



V229 

,230 


6004 

F0RMAT11H 29H1962 L.S. STANDARD A1 M2SPME RE ) 







G0T 0 6016 



,*231 



6005 

1 F ( ATK0S-AT3 ) 6000,' 6C06V60CB 



, 2 32 



6006 

WRITE! 6,6007) 



V 2 32 

,234 


6007 

F0RMAT(1H 21HPBE ATM0SPHERE f LMSC9 ) 







G0T0 6016 



,(235 



6008 

IF( ATM0S— AT4 )6011»6C09y6011 



•'236 



6009 

WRITE16, 60 10 ) 



,'237 

,238 


6010 

FORMAT ( 1H 28HFUNT SMALL ATMZSPHERB (LMSC)) 







G0T 0 6016 



V235 



6011 

IFt A TM0S-AT5) 6014,602^60 14 



»'24C 



6012 

WRITE! 6,6013) 



Y241 

,242 


6013 

F0RMATI1H 29HSPECIAL 1959 ARDC ATMOSPHERE ) 







GOT 0 6016 



,*243 



6014 

WRITEI 6,6015) 



V244 

,245 


6015 

F0RMATI1H 37HSPEC I AL 1962 U.S. STANDARD ATMeSPHERE) 





6016 

C0NT INUE 



/246 




WRITE! 6,1412) 



,'2 47 

• 248 


1412 

F0RMAT ( 1H018HCENSI TY C0RRECTI 0N) 







WRITE16, 1413 ) 



V 249 

,250 


1413 

FORMAT { 1H 2HDC 1 8X , 19HPER IGEEIKILZ METERS)) 







KK = 2 



^251 



1416 

I FIC0R REC 1 KK- 1 )-ENC ID) 1414^1415, 1414 



,252 



1414 

KK=KK*2 



i* 2 53 




GOT 0 1416 



V 2 54 



1415 

KK*KK-;2 



,* 2 55 




D0 1417 I =» 1 , KK y 2 



,2 56 
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BXTERNAl FORMULA NUMBER _ - SOURCE STATEMENT - ^INTERNAL FORMULA NUMBERt SI 


WRITE! 6,1418) C0RRECI I ) ^C0RREC f I * IT 

1418 F0RMAT11H E 1 5 . 8 *5X , E 1 5 • 8 ) 

1417 _C0NTINUE _ . . ..... _ 

WRITE! 6,1465) 

_1465 F0RMAT(lHO2H^PyX8X,jLHYEAR) 

KK*3 

1452 I F ( A P l K K~2 Jr J EN.O I D.U A3 C.i 145 1 » „ 1.4 5Q 

1450 KK = KK* 2 

— . _ Q&UU52 

1451 KK*KK-i3 

00 1453 I » liKK *2_ 

WRITE! 6» 1454) API I ),AP( 1 + 11 
1454 FORM AT! 1 H E15. 8, 5X,E1 5jB) 

1453 C0NTINUE 

WRITE! 6, 1455) 

145 5 FORMAT! 1H04HF T EN ,'16 X , AH YE AR 1 
KK = 3 

145 8 IF(FTBN(KK-2)-ENDIC)l456» , l457,14 56 

1456 KK=KK*2 

G0T01458 

1457 KK=KK-:3 

DB 1459 1-1,KK,'2 

WRITE! 6, 1454 )FTEN( I ),FTEN(1+1) 

1459 CONTINUE 

WRITE! 6,146 0) 

1460 FORMAT ( 1H05HF T ENB , 1 5 X , 4HYEAR ) 

KK = 3 

_ 14 fc 3 I F ( FTBNBCKK-2 j-ENDIC) 1461,11462,1481 

_146 1 KK=KK*2 

G0T0I463 

1462 KK=KK-?3 

D2 1464 I ®1 1 KK * 2 

WRITE! 6,1454 ) F TENB ( I ) , FTENB ( I +1 ) 

1464 CONTINUE 

IFtCIURIML-fCrNBR ) 1422, 1420^1422 __ . 

1420 WRITE! 6,1421) 

1421 F3RMAT1 1H0I6HC IURNAL NORMAL) 

G0T21427 

1422_C0NTINUE __ 

1423 WRITE! 6,1424) 

_1424 FORMAT { 1H014HC I.URNAL MEAN ) 

1427 C0NT INUE 

WRITEt 6,1429) 

1429 FORMAT! 1H0 , 2 5X ;26H» SPECIAL EVENTS 

IF{CUT0FF-AID)7I^72,71 . __ . . 

72 WRITE! 6,73 ) CUTOFF l 2 ) 

7 3 FORMAT I 1HO17HAP0GEE CUTOFF IKMjEl 5* 8 ) 

G3 T0 80 

71 I F ! CUT0FF-!PID)74^75,74 

75 WRITE16,76)CUT0FF(2) 

76 F 3RM AT 1 1H0 18HPE_R I GEE C13T0F F (KNJE 15. 8) 

G0 T 0 80 
74 WRITE!6,77) 

77 FORMAT f 1H019HEARTH IMPACT CUTOFF ) 

80 CONTINU E 

I F I INTERA) 83, 83*82 


Z.257 

* 258 . 

✓ 259 

✓ 26C 

✓ 262 

,261 
• 263 


✓ 264 

✓ 265 



,-2 66 
4167 
4268 

✓ 265 

✓ 27C 

7271 

✓ 272 

'“7 273“ 
✓ 275 

,274 

,276 


4277 
42 78 
✓ 275 

- 


✓ 2 8C 

4281 

4282 
4 2 83 

2 86 
4 2 8 e 

,284 
,287 
» 2 8?_ 

✓ 285 

✓ 29C 
4 291 
42 92 
,'293 
,'294 

~ 

- 

✓ 295 
,-296 
,-299 

✓ 201 
,*302 

,297 

,300 

,303 

✓ 298 

✓ 204 

✓ 2C5 

✓ 2 Gfc 

,'207 

• - 

✓ 308 

✓ 209 

,210 


✓ 311 

✓ 212 

,213 

✓ 314 

✓ 315 

✓ 216 



✓ 217 

,218 

✓ 319 

✓ 32C 

✓ 321 

,322 


✓ 223 



✓ 324 


158 
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EXTERNAL F0RMULA JNUMBfiR S0URCE ST ATE Mg NT 

82 WRITE«6,8AI 

84 F0RK AT t 1H024HT I ME F2R AP0G5E 1 NTERP 2L AT I 0N ! D A Y >) 

03 e6 I = 1 f ' 5 

WRITE! 6,85) INTERAU ) 

__85 F0RM AT ( 1H E15.8) 

86 C0NTINUE 

83 IF{ INTERP)87,E7,88 
88 WRITE! 6 , 89 J 

89 F0RMAT l 1H035HT IME FOR PERIGEE I NTBR P0L.AT 1 0N I CA Y )) 

00 91 I = 1 ,< 5 
WRlTEt6,90) INTERPt I ) 

90 F 3RMAT 1 1H E15.8) 

_ 91 C0NTINUE 
87 CONTINUE 

WRITE! 6,1430) 

1430 FORMAT ( 1H0, 25X.30H***** INITIAL CONDITIONS •»•**) 

IF! PRINT-OET I C) 92,93,92 
93 WR 1 TE I 6, 94 ) 

94 FORMAT t 1H015HCETAIL PRINTeUT) 

G0 T 0 100 

92 IF(PRINT-SH0IC)95, 96, 95 

96 WRITE! 6,97) 

97 FORMAT t 1HO14HSH0RT PRINTOUT) 

G0 T 0 100 

_ 95 WRITE! 6,9? ) 

93 FORMAT ( 1HO15HN0RMAL PRINTOUT) 

100 CONTINUE 

WRITE! 6,81 )OAN0M 

81 F0RMAT ( 1H021HAN3MALY S TEP ! DEGREE SIE 15. 8 » 

WR I TEl 6 , 10 1 ) 

101 FORMAT { 1HO16HAP0GEE STEPS! KM ),13Xy 

1 1 8HP ER I GEE RACIUS(KM)) 

DC 103 1=1,10,2 

WR I TEt 6, 102 ) DAP0GE ( r ) , DAP0GE ( 1 + 1 ) 

102 FORMAT ! 1H E 1 5 . 8 , 1 5X , E 1 5 . 8 ) 

103 C0NTINUE 
T EMM *0 • 

TEMP*36O./CAN0M 

RACCE a DAN0M/OPR 

I =T £MP 

JCNT=I+1 

K*2 

4 I F ( I ) 2 , 2,'3 
3 1 = 1-1 

TEMM=RADOE+T£MR 
COSE (K )=C0SI T6MM1 
6 ( K ) *T EMM-nCPR 
K =K + 1 
60 TM 
2 C0S E =1 * 

E = 0. 

DE?3=RADDE/3. 

S I N I *S I Nl INC/CPR) 

C 3S I =C 0 S ( INC/CPR) 

KA =1 
KP«1 


06 /ie/es 


INTERNAL FORMULA NUMBERl S I 

••225 

• 226 


•'227 

/326 

• 229“ 

,*330 

•*231 

1*232 

• 232 


•* 3 34 

.335 


V236 

••237 

,338 

.'339 

*‘24C 

.341 


,*242 

/242 

• 244 


•'345 



**346 

• 347 


•1248 
••345 
/ 2 5C 

* 351 

— 

*352 
. *353 

• 354 


/ 2 55 
/ 2 56 

,357 

*2 58~ 

•'259 

,360 


•‘26 1 
t 262 

,363 

♦■364" 

•‘265 

,'367 

, 366 


•>266 
•*269 
/ 2 7C 
••371 
* 272 
*212 

- 

— 

*214 
• 275 
*216 
*211 
*216 

„ ,'275 


• 

, 2 ec 
.*281 
,*382 
,'382 
• 284 
,*285 


— 


,'386 
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KILG0 LIFE 

EXTERNAL F0RMULA NUMBER 


S0URC E .STATEMENT 


06/10/65 

I N T E RN A L_ X 0 U L A_ NU M fi E R l SJ 


1«1 

302 I F ( A00— DAP0GE ( i +1 )) 3 00 *301 /30 1 

3 00 I« I + 2 . __ .. . .. _ . _ . 

G0 T 0 302 

__30l _DA*CAP0GEI1) 

DA02*DA/2* 

PER = P00 ._ 

PER 1*P 00 

„AP0=A0B . T 

CALL PDAD 

ACTP_1*AQ0T _ ....... . 

IF{ PRINT-DETIC) 105, 10fcyl05 

106 WRITE! 6 » 1 5C ? ; 

CALL PRINTT 

_ 150 _F0RPAT l 1H146HAP0GEE , PERIGEE ,MAJ0R AXIS, AND EARTH RADIUS(KM>/, 

1 IX, 48H AP0GEE , PER IGEE * MAJOR AXIS RATES (KM/DAY ) MASS! KG)/, 
21X,39HASCENDING NZC E , ARGUMENT 0F PE R I GE E_( DEGJ A,. ... 

31X,38HN0DE,PERIGEE REGRESSION RA 16 S (DEG /OAY ) /, 

41X, 24HPER IGEE V E L 0C iTYl KM/SEC ) /, __ 

51X, 19H0RBHAL PER IZC ( MIN) /V 

_ 61X,29HLIFETIME SPE\_T(0RBIT AND DAY)// 

71X, 47HRH0 l KG/P 3 ) V EI(UNITLESS), R1PERG AND R I PAPG ( KM ) / ) 

G 0T0 108 . .. . _ __ _ 

105 IF! PRINT-SH0IC) 107, 106V 107 

107 WR ITEt 6, 105 ) _ 

109 FORMAT! 1H129HAP0GEE, PERIGEE, MAJ0R AXISVAND, 

117H, EARTH RAD I USl KM ) / , IX . __ 

243HAP0GEE,'PERIGEE,AND MAJOR AXIS R A TE S I KM/D A Y ) / , 1 X ,' 

329HLIPETIME SPENT (0RBIT. AND DAY)) 

WRITE! 6, llC ) AP0,PER1 , A I ,RPA I * AD0 T VPD0T , S AD0 T I , RE V 0L , T 1 ME 

110 FORMAT ( lHOfcHA E15.8, 3X,'6HP S15« 8 ,3X , 6HAXI S E15.8,3X , 

16HRADI USE15*8/,1X,6FAD0T E15.8, 3X ,6HPD0T E15i8,3X, 

26HAXJD0TE_1_5_.8,3X/6F0RBI.T . E 1 5. 8, 3X,f6HT I ME E15.8/) _ _ . 

108 CONTINUE 

_3001 CALL.RK. _ „ . . _ . .. 

3021 IF( INTERAIKA) )400,4C0,401 

401 IFITIM E- INTER A(KA))40C^402 ,<402 

402 AN(KA)*(AP0-DA) + lINTERA(KA)-TIMEll*(AP0-(APe-DA)) / t T I ME-T I ME 1 > 

KA=KA*1_. _ - . - 

G0T03O2 1 

400 I F ( INT ERPI KJ? )J403,4C3,4C 4 . 

404 IF(TIME-INTERPtKP) )403V405^405 

40 5 PN(KP)»PER-H INTERP(KP)-TIMB1)*IPER1-PE R) /(TIME-TIME1) 

K P = K P-fr 1 

G 0X040 0 . . _ _ . 

403 CONTINUE 

305 1fTaP0-OAP'0GE< I * lT>2 0 3 V 304/304 

303 i=n+2 

G0 T 0 305 

304 DA = C AP 0GEt 1 ) . . _ 

DA02*OA/2* 

PE R s P5R 1 __ ... .. 

TIME1»TIMB 

IF(PR1NT-DETIC)111,112V111 

111 IFl PRINT-SH0IC) 113, 114/113 


f»387 
/ 3 88 
,‘385 
,*39C 
_/391 
/392 

t'392 

/394 

/39S 

,‘356 

V 397 

V 398 

,<395 ,400 

t‘4 01 


,‘402 

,<403 

,'404 ,4G5_ 


,'406 ,407 ,'4C8 


V 4GS 
/ 4 1C 

V 4 1 1 
,<412 
,‘413 
/ 4 1 4 
/415 
,416 

V 4 17 
_»'4ie_ 

,'415 
,'4 2C 
,<421 
,'4 22 
,<4 23 
,'4 24 

V 4 2 5 
,'4 26 
,<4 27 
,'42e 
,'4 25 
/43C_ 
,'431 
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K1LG0 LIFE 

EXTERNAL F0RMLLA NUMBER - S0URCE STATEMENT 

06/18/65 

INTERNAL FCRMl A 

NUMBERtS) 


113 WRITEl6,llC)AP0 t PERl,Al,RPAI,AD0T,'PC0T,SAD0TI,REVeL,TlME 


,'432 

,433 

,’434 

GO T 0 1 1 A 
112 CALL PRINTT 


,435 

V436 



114 IF(CUT0FF-AID)115,116,115 
116 IF( AP0-CUT0FF(2) )12C, 13C,<3001 


V437 

»»438 



115 1F!CUT0FP-P1D)117,118»117 
118 IF! PER 1-CUTOFF 12) 1130,130^3001 


,435 

,'44C 



117 IF(PER1-AE)13C,130,20C1 
130 1 F ( PRINT- DET I C ) 131* 132^131 


,'441 

/442 



131 IF!PRINT-SH0IC)133,132,133 

132 CALL PRINTT 


,'.442 

*444 



GO T 0 3000 

133 WRITE! 6.1 1C) AP0.PER1.AI ,RPAI , AD0 Tv PC0T , SAD0T I , RE VOL, TIME 


/445 

•'446 

,447 

,'448 

G0 T 0 3000 

3000 I F { INTERA) 500,500,501 


,!44S 
,'4 5C 



501 WRITEI6.502) 

502 F0RMAT t 1HO33HAP0GEE ALTITUDE INT ERPOL AT I ON! KM) ,3X , 


V451 

,452 


112HTIME IN DAYS) 
K A=K A— f 1 


,'452 



00 504 1*1, KA 

WRITE! 6,50 3 ) AM I) t INTERA! !) 


,14 54 
,'455 

,456 

,'457 

503 F0RMATI 1H0E 1 5 . 8 , 5X, E 1 5; 8 ) 

504 CONTINUE 


,'45£ 

• 459 


500 I F ( INTERP)505,505,5C6 
506 WRI TEt 6. 507 ) 


V46C 

,>461 

,462 


507 FORMAT! 1H034HPER I GEE ALTITUDE I NTBRP0LAT 1 0N ( KM ) ,3X»' 
1 1 ?HT IMF IN DAYS) 

K P = K P-; 1 
DO 509 1 = 1, KP 


,!4 63 
,14 64 



WRITE! 6,508) PNl I) , INTERPt 1) 
508 FORMAT! 1H0E15.8»5X,E15.8) 


,<465 

,466 

V467 

509 C0NTINUE 
505 CONTINUE 


•*468 

•<47C 

,469 


T IME*0 • 

T 1 ME 1»0 • 


,1471 

.'472 



REV0L=*0. 
REV 1=0. 


,1473 

,'474 



RETURN 
3020 5 T0P 


»!475 

,476 



END 


V477 





KILG0 PDAO 

BXTERNAL F0R MLIA KU HBER S0URCE SIATEKEM 


06/ 18/65 

IKT E RN At F e R * ULA ttUM e ER ISJ 


SUBROUTINE PDAD 

REAL J0,KERTH,1NTA, IN T Pj> WAS S, K T f IhTERA, I ME R P, I NCtNI 

DIMENSION CATEi 3 ) * *M0t1TH112) 

DIMENS I 0N_ FTEKB (i.53 ) , FTEN I 1 53 ) « A Pll 531 = 

D I MENS I 0N C0RRECtiiC) » S0LAR C 3C1) 

DIMENSION PR ( 16 ) 

DIMENSION Tim),INTERAlfe)VTNlt6) ,INTERP(6) , 

lC3SE(I65Lt , E(3fe5), , CCPRlM_C2 5) , AREA t45).CNI45) t 

2 ATT ACKi ( 45 ) , STEP A t 36 5 ) , STE PP l 365) »MASS ( 25) 

C0MM0N /ARCC/TEMPT»TEMK t PRESS «P0Mff» 

IP$Pe,RH3,>Rh0SR0 f .VISC f V I SC SL , K V I SC*V$, G 

DATA QPR/57«2957795/, P I /3 .1 41 59291 / , SABC l /6HS I NE / 

It BCITIM/6HT IME / 

DAT AD JN0 R/6 H M5 R M A L / , D I M N / 6 H M E A N . /,DI N0N / 6HK0NE / 

DATA A I D/6H A /,P ID/6HP / *CE TI D/6HDE T A I L/ t 

1SH0ID/6HSH0 RT / __ 

DATA BNDID/6HEND / 

DATA AT1/6EAREC / t AT2/6HLSSTD /,4T3/6HPgE / , AT4/6HSMALI /, 

1AT5/6HSPECAR/ 

C0MMeN/CLK/APet'PE Rl»TIME , AEtSINI 0 ,F 4 J J ,K ERTH» 

1G0SI* " JCNT » CDP'r'iF » AREA* ATTACK*.' CN, 

2M_ASS*AJ)0Tt'PJ)0TvPp0ACj L TIPPED _ 

3, C0SEf'E f DA02, 'PER, T1 ME 1,»HH,DE 03 

4 t CAP DM1 , C A P IQ, SMAM1 » A C T V 1 , AP0M1 , SMAUVSMACMl , SMA I D, CAPM1 , CAPW 
5,CAP0 f (DATE, XM0NTH , F T ENB , AP 

6, JNT_ER AjJNTERP , DD^C AN2M , DAP0GE QOT. , CDAJ 5C) 

7, PRINT, CUTOFF (.2 ) * A I , RP A I , S AD0T I 

8, R EV0U i MTV VP I >PDI 

9, PN(6) , ANt 6) ,REV1 

1,C0RREC,S0LAR,ATM0S,FTEN,DIURM.» XU AG t>RH 0XX , S 0 , SA 

I, EI,RIPP,'R fPA,AMPR 

DELYR»DA TB(3)-1957> 

XDAYS=DELYR*365. 

XLEA P» DELVR/4« 

I = X L E A P 

XLEAP»I 

XDAYS^XDAYS+XLEAP 

K= DAT8 ( 1) 

YDAYS-O. 
k~k- i 

00 170 6 1 3 I , K ' 

1706 YOAYS-»XM0NTH( HEYDAYS 

XDAYS’XDAY S+YCAYS+CATE12) 

IF ( CAT_E l l)-2.)17 02,1 7C1,17Q1 

1701 XLPE*DATEt 3 ) -1956* 

1704 X lPE«XL PE--4» 

IF (XIRE) 1702*1703* 1704 

1703 . XQAYS»X0AYS+1. 

1702 XD AY S»X DAY S-36 5 • 

A 1 = ( AP0+PBR1 ) /2. 

EI={ AP0-PER1 ) /IAP0+PER1) 

IF( TIM E )10 ,10*11 __ 

10 RPAI«AE*tl • - ( SINI*SINI*SIMW0/DPR1**2/F) ) 

Bl = l.-i3.»SINI«SINI/2. 

TEMP*l *-EI *E I 


«fl __ 
it 



V 4 



41 

,*7 

tie 

V 9 

V1G 

vii ,12 

^13 

,'14 __ 

t 1 1 5 

,16 _____ 

^18 

41 ? 

4_2 G 

^21 

V22 

,123" 

,(24 

i*25 
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KIL60 POAC 

EXTERNAL F0RMLL A NUMBER - S0URCE STATEMENT 


06/18/65 

INTERNAL FORMULA NUM BER! S ? 


TEMPI* SORT ( TEMP ) 

NI = 1.-M JJaAE/AI*AE/AI*B1/ITEMP*TEMP1) ) 

N I -SORT (KERTH/l A1*A I* A I )) *NI*24. *3 6 CO.* DPR 
SMAID-J J*NI*l AE/IAI*TEMP) )**2* I 2 .-<5 .*SI N I*S I NI /2. ) 

CAPID*— JJ*NI*(AE/( AI*TEMP))**2*C03I 

CAPM1»CAR0 

SMAM1-W0 

SMAH*W0 

CAPW-CAP0 

AP0M1* AP0 

CAPCM1-CAPID 

smacmi*sma ID 

G0 T 0 12 

11 DTI= (AP0-AP3M1 ) /ADTF1 
IFIAMPR)468,468,469 

468 SINTA-G. 

SINTP-O. 

SINTW*G. 

G0T047O 

469 CALL S0RAP t X DA YZ ,‘A I , E I ,'CAPW,SMAW , I NC, AM PR , K E RTH , SCW, SDR A , SDR P ) 
__ _SINTA= l 2.>SDRA-SDRP )/3 J/5.729578 

S INTP* S*DRP/3 */5. 729578 
SINTW=SDW*10./3. 

47C SMAb=SMAMl + DTI* ( SMACM1 + S I NT W ) 

2102 IFI SMAW-36C. ) 2100, 2101V21C1 
2101 SMAH = SMAW-*36 0. 

G0T0 2102 
2100 SMAW=SMAW 

CAPW=C APM1+CAPDM1*CT I 
2105 IFICAPW-36C. ) 2 1 03 , 2 1 04 V 2 1 C4 
2104 CAPh=CAPW-^360. 

G0T021O5 

2103 C APVJ ~C APW 

Bl = l.-f3.«SINI*SINI/2. 

TEMP-1. -E1*EI 
T EMP 1- SORT I TEMP ) 

NI = l.+ (JJ*.AE/AI*AE/Al*Bl/( TEMP* TEMPI)) 
NI-S0RT(KERTH/1AI*AI*AI))*NI*24.*36C0.*DPR 
CAPlD=»-JJ*NI*(AE/( A I* TEMP) )**2*C 08 I 
SMAIO-JJ*NI*C AE/t AI*TEMP) ) ** 2* < 2 .-« 5 . * S I N I * S I M /2. ) 

RPAI=AE*tl ( SINI*S IN I* SI MSMAW/DRR )**2/F> ) 

12 CONTINUE 

PDI=2.>PI /60. *SQRT( A I*A I*AI/KERTHt 
VPI=;SORTl KERTh)*SORT { 2.VPER1* I l.-J J/3.*AE 
1/PER1*AE/PER1*13.'*S I N I » S I M * S I N I SMAb/DPR )*SI N 
2 { SM A W/ DPR ) - 1 . ) ) — 1 • / A I ) 

L= JCNT 
J = 1 

1502 IF(L)1500,'150C t 1501 
1501 L=L- 1 

RI = AIM1.-'EI*EI )/( l. + EI*C0SE( J) ) + 

II 2*/3»*JJ / A I * A E / t l.-EI*EI )aAE)*I (SIM*SIM>*(1.- 
2SINI (SMAW+EIJ) ) /DPR )**2/2.)-.5)-3^/10.*HH/ 

3 J J * AE* S IN I * ( SINUSMAW + Et J)) /DPR) “3 I M (H0 
4+EI J )) /DPR) ) 

RIP=RI-AE<U 1.- SIN I* SIN I* 


*26 
*27 
*2_8 
*29 
,<30 
*21 
,'3 2 
*23 
*24 

* 2 5 
*26 
*37 
*38 

* 2 9 
y4G 
*41 
t»42_ 
,'43 
*44 
*4 5 
,'4 6 
,'47 

V A 8 
,i«9 
/SO 
,'51 

V 5 2 
*■53 
*54 

* 5 5 

* 5 6 
,<57 
,<58 
,'59 
*6G_ 
*61 
*6 2 
,'63 
,64 
*6 5 
*66 
,-67 
*68 


,16 9 
*70 
*71 
7 2 
,'73 


*74 
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KILG0 POAD T '' ' 06>ie/e5 

BXTERNAL FgRMILA NUMBER S0URCE STATEMENT _ - INTERNAL FeRHULA NUMfiERtS) 

IS IN t (SMAW+ EI J))/D PR)*«2/F) 115 

IF! El J ) )19CC, 1900,1901 ,*76 

1900 R IPP-RIP __ _ t'77 

G0T019G3 ^78 

_1_?P1_ I Ft I ABS IE I J ) — 180. ) )i* 001 >1902 , 1902jtl903 . : .. _ . _y79 

1902 RIPA*RIP yeo 

1903 CONTINUE _ . . _ >61 

lFIRIP)80,»81,ei f»82 

8o_r_ip^o^ _ _ „ .. . . ye3 

81 CONTINUE *84 

1=1.. . _ ye 5 

28 IFt RIR-CDPRIMI 1+1) >29,30,31 ^86 

29 1 = 142 ye 7 

I F ( 1-24)28,28,7001 *'88 

_ _31_IF( I-l)_30, '30,22. __ _ _ ..... __ .. 

32 CDP=CDPRIM( I -2 ) + LCCPR I M U)-CDPR I Ml I -2 ) )*(RI P- 

1CDPRIMI L-JA.)_/ICCPRIRl 1 + 1 J-CDPRIM ( WIl ___ _ ,'90 

GO T 0 26 ,'91 

30 CDP = CDPR1M| I) „ y 92 

26 IFICDA-SNBCI ) 1 00,'lC 1 , 100 *93 

_.WJl .1 = 2 _ . . ... »‘94 

1103 I Ft T IM E-CD At I + 1 ) ) 1 1 CO, 1 100^1102 ,*95 

_110_2 1 = 1 + 2 _ _ _ . _____ _ _ »'96 

IFt 1-44)1103,1103,7001 .<97 

1100 CCAX^COAin ^98 

CDAREA=CDR*CN(2)*AREA(2)+(CDP*CN (4 ) *ARE A (4) 

1-CDP*GNJ2) *AREA(2))M ABS( S1NUCDA* *E I JJ + ATTACK) / 

2DPR ) ) ) >^9 

G0 T0_5OO' __ _ . . _ ,<10C ... 

100 1 = 1 t'lGl 

20 3 IFt Et J 5-ATTACKl 1*1) ) 200,201,202 *' 102 

202 I = 1 +!2 fliOB 

IFt 1-44)203,2 03^ 7001 _ »<1C4 

200 IFt 1-1 )201, 201V204 .<105 


l*tE( J)-ATTACK( 1-1) )/t ATTACK II +d- 

2 ATT ACK t 1-1 ) ) . t'106 

G0 TO 205 .'1G7 

201 ALPHA* ATT A OKI 13 _ _ _____ t '208 

205 IFICN-.BCITIM)34,33,24 ^109 

34 i = 2 _ _ _ me 

38 1 F t ALPHA-CN ( 1 + 1)535,36^37 ^111 

37 1 = 1+2 VU2_ 

IFt 1-44)38,38,7001 *<113 

35 IFt I-2J36j*3fci29 _ _ t!114 

39 CNN=CN( 1-2 ) + ( ON t I )-CN t 1-2 ) ) * t ALPHA- 

icNt i-i) )/ icn( i+i)rCAJi^ivL __ y 1 15 

G0 T0 40 ^116 

36 CNN = CNt I) >» 117 

G0 T 0 40 ^118 

33 1 = 2 _ _ __ _ yn 9 

53 lFtTIME-CN( 1 + 1) )50,51, 52 ,»12C 

52 1 = ^ 1 + 2 __ _ _ „ _ . »*121_ 

IFt 1-44)53,53,7001 .'122 

50 IFt 1—25 51 ,*51 , 54 _ *>123 

54 CNN=CN II) V 1 24 
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KILG0 ROAD 06/18/65 * 

_ EXTERNAL FORMULA NUMBER - SOURCE STATEMENT - INTERNAL FORMULA NUMeERLS) 


G0 T 0 AO 
51 CNN-CN ( I) 

AO CO-CDP *CNN 

IF{ AREA-BC I TIM) 60,61,60 
„ 60 1*2 

65 IF(ALPHA-AREACI+:i))62,63,'6A 
6 A 1=1+2 

IF( i~AA)65,65,7C01 

62 I F ( I — 2 ) 63,* 6 3 ,66 

66 ARA A = AR EA l 1-2 ) «M AREA ( D-ARE A tI-2 ) 1* ( ALPHA- 
1AREAU-1) )/( APEAl I 411-AREA l I-D) 

G0 TO 70 

63 ARAA*AREAl I ) 

G0 T 0 70 

61 1=2 

7 A I F C TIM E-AREA l 1 + 1)171^72,73 
73 1=142 

I F f I— A A )7A,7A,7001 

71 IF( 1-2 ) 72, '72, 75 
75 ARAA*AREA< I ) 

GO T 0 70 

72 AR A A=AR EA l I) * ' 

70 COAREA=ARAA*CC 

500 I F( RIP-700. ) 300,301,301 

301 RH0=;O: 

G0T0 503 

300 I F{ ATM0S-A 11 )302, «3C3, 302 
303 CALL ARDC5S1R IP*1.E3 ) 

G0 T 0 503 

302 IF( ATMZS-AT2 ) 2 0A,‘3C5,3GA 

305 PR( 1)=RIP*1.E2 

CALL PRA63I PR,ERR0R) 

RH0=PR(6)/9.81 
G0 T 0 503 

30A IF( ATM0S-AT3 )2G6V3C7,3G6 
307 X = R I «*C0St (SMAW + E(J))/DPR) 

Y=RI * S IN l (SMAW+EIJ) J/DPR) 

XP = X 

YP=Y»S0RTtl.-S!NI*«2) 

Z P = Y*S I Nl 

T6MP*C0S(CAPW/DPR ) 

TEMC=S INI CAPW/DPR) 

XS=XP*TEMP-YP«TEMQ 

YS=XP*TEMQ+YP*TEMP 

zs=zp 

RS=SQRT ( XS*XS4YS*YS4ZS*ZS) 

IF( ATM0S-AT3) 250/351,350 
351 D=XCAYS4T1ME 

CALL P0EAT { RIP,RH0, C, XS,YSyZS,RS) 
RH0=RH0*5! 5.7/9.81 
G0T0 503 

350 D=XCAYS4T1ME426203. 

CALL SMATMSt XS|fYS,2S, SA,0 , RH0 ,R I PI 

RH0=RH0/9Z81 

G0 T 0 503 

306 IF< ATM0S-ATA)2O8,»3C7,3O8 


/1 25 
,*126 
V 127 
V128 
/1 25 
V13C 
,■131 
V 132 
V 1 33 

/13A_ 
V 1 3 5 
,*136 
V 1 37 

vne_ 

VI 35 

V 1 AC 

,* 1 A1 
V1A2 
V143 
viaa_ 

V1A5 
V146 
V1A7 
V 1 A8 
V1A5 
V15C 

V 1 51 
,'152 
,'153 
VISA 
,1155 

V 1 5 6 
V 157 

VI 58 

V155 

V16C 

V 1 61 
Vl62_ 

V 1 63 
V16A 
V 1 6 5 

V 1 66 

V 1 67 

V 1 6B 
,165 

V 17C 
V 171 
VI 72 

V 1 72 
V17A _ 
VI 75 
^176 

V 177 

V 178 
VI 75 
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KILG0 POAD ' 06/ 18/ 65 ~ 

_BJ<TERNAL_F0RMtLA .NUMBER S0URCE STATEMENT _IM E _R_N A L _ F 0 R M U L A_ NUM BE R l SJ 


306 IF(ATM0S-AT5) 310/311,310 

311 CALL ARDG5S(RIP«1.E3) 

RH 0 = RH 0 *9 » 8_1 _ 

G0T0 312 

310 PR( 1 )^R IP* 1«E3 _ 

CALL P R A63 ( PR »ERR0R ) 

RH2=PR 16) 

312 1=1 

316 I_FJ C0RRECM ) — END ID) 2.4 5y 346/34 5 

346 DCC=C0RREC( 1-2) 

0^2318 . 

345 I F ( R I R— C0RREC { l+i 1)313,314,315 

313 1=142 

IF C 1-42)316, 316, 7CC1 

315 IF t 1-1)314, 314_,317 _ 

317 DCC = C3 RREC ( 1-2 ) + ( C2RREC ( I )-C0RRE C1I -2) ) MRI P- 

1C0RRECU-1 n/JC0RRECt_I + l)-O0RREC (1-11) __ _ 

G0 T 0 318 

314 DCC = C3 RREC II) 

318 I F( RIP- 120. ) 319, 3 IS, 320 

319 _ RH0 = RH0*DCC/9.11 __ . 

G0 T0 503 

320_ YERR = 1958:hJTIME + XCAYS)/_365.24 

XDAYZ=XDAYS+TIME+36204^ 

IF(FTENB)322, 321/322 

321 C0NTINUE 

TEMP=l X0AYZ-3t030.J/4C_9C_,’«4.*PI _ _____ 

" TEMC=C0SCTEMP)*15. 

__ _ I.EMP = l XDAY Z~ 3 6 340 . ) /4_090 _ 

TEMR=C0$lTEMP)*-75. 

FTENBX=135«+TEMRtTEMQ 

G0T042O6 

322_I_=1 _ _ 

4205 IF(FT6NBti )-END ID ) 4 201 , 42CG ,4201 

4200 FTENBX=FTENB( I-2)_ 

GPT 2 4206 

4201 I F(FTENBU + 1)-YERR) 4204,4203, 4202 

4204 1=1+2 

G0TE 42O5 

4203 FTENBX*FTENBU) 

_60T0„42O6 __ _ 

4202 IF( 1-1 )4203, 4-2 03/52 CO 

5200 FTENBX = FT EN9 ( 1-2 ) + ( YERR-F TENS ( I - 1 1 ) » ( FTENB ( I )-FTENB ( 1-2) )/ 
ltFTENBl 1 + 1 J-FTENBt 1-1 ) 5 

4206 I F ( F TBN ) 42 C7 , 4 2 0_8j.4_2.07 

4208 <FTENX=FTENBX 

G0 T 0 421 5 _ 

4207 1=1 

4214 IF( FTBNt D-ENC1D) 4209,4210/4209 

4210 FTENX=FTEN I 1-2 1 

G0T 0 4215 _ _ 

4209 IF( FTEN (1+1 J-YERR) 42 11^4212, 4213 

42 11 1 = 1+ 2 _ 

G0 T 0 4214 

4212 FTENX=FTEN ( I ) 

G0T0 4215 


/ISC 
/ 1 81 
*182 
*<183 
j‘ 1 8 4_ 
/ 1 85 
*186 
*■187 

/iae 

/ 1 89 


V19C 
/ 19 1 
,*192 


4 


/ 1 92 


194 


,‘195 
,-196 
*197 
,< 198 
,*199 
f‘2CC 
,’201 
/202 
,'203 
/ 204 
,’205 
,’206 
,-207 
,’208 
,*209 
/21C 

f '211 

,‘212 

_/21_3__ 

/214 
,*215 
,-216 
*‘217 
/ 2 18 
*'219 
*’ 2 2C 


/221 
,'2 22 
,'223 
,-224 
/225 
*‘226 
*227 

/ 22e 

,<229 
£ 3_C 
,‘231“ 
,*2 32 
*‘233 
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KILG0 PDAO 06/18/65 

8XTERNAL..F0RHULA NUMRER - S0URCE STATEMENT - INTERNAL FgRRLLA NUMBE R t S ) 


4213 I F ( 1-1)4212, 4212/52C1 

5201 FTENX^FTENI I “2 ) +: l YE R R-F T E N l I- 1 ) ) *IF TE N ( I ) -F T EN ( 1-2 ) ) / 

11 FTENl I +1 ) -F TEN ( 1-1 ) ) 

4215 IF(AP)4216, 4217,4216 

4217 APX*0.: 

G0T0343 

4216 1=1 

4223 IFtAPtI)-ENDIC)42ie, 4219, <4218 

4219 APX=AP(I-2) 

G0T2343 

4218 I F{ API I+1J-YERR ) 42 2 C, 4221 *14 22 2 

4220 1=1+2 
G0T042 2 3 

4221 APX=AP( I) 

G0T0343 

4222 IF( 1-1)4221, 4221^5202 

5202 APX = AP l 1-2 ) + ( YERR-AP ( 1-1 ) M t AP { I HAP tI-2 ) ) / 

1 t AP( 1 + 1 )-AP( I + l ) ) 

343 S0AR=2 5 . + .:8«FTENBX+ .4*{ FTENX-FTE NBX)+APX*10. 

TEMP = (.XDAY2-38047. J/365.2 5 
TEMC = .:O6*C0S( 4 .*P I* TEMP ) 

TEMR= fc ’O25+C0S(2.*PI*TEMP) 

GTT=TBMR-TEMQ 
SS = SBAR*EXP t GTT ) 

I F ( C IURNL-^C IN0R )40C, 40 3,400 
400 C0NTINUE 

402 C0SPP-C3St 75./DPR) 

G0T2 404 

403 C0NTINUE 
TEMP=ISS-160. ) 790. 

TEMR=-,005 67* t R IP-2C0. ) +EXP t-.0145 5*t RI P-2 00,) ) 

TEMC = 18.5 + 21 ,5*EXP(-. 0315* IRIP-2CG. )) 

TEMS = ! 18^'5 + 30.*EXP(TEMR ) + TEMQ*TE^R+*4, Ml. -TEMP* TEMP)) /OPR 
IF(TEMS-5^)51C^510,511 
511 TEMS*5. 

510 XLAC-MEMS + CPR 

XLAMS=«.017203*XDAYZ + .0335*SIN( . 0 11 2 C3 * XDA YZ ) -1 . 41 
TEMP=C0S1XLAMS) 

TEMQ=SINIXLAMS) 

XLS=TBMP 

TEMR=C0St ECL IPT/DPR) 

TEMS = S INtECL IPT /DPR ) 

XMS=TBMR*T EMQ 
XNS=TBMS*TEMQ 
RAS=ATAN21 XMS,XLS) 

RAB=RAS-XL AG/CPR 

XL 8= SORT t XNS*X_NS+XLS«XLS) *C0S(RABI 
XMB=SQRTIXNS*XNS+XLS*XLS) *SINtRABI 
XN6=XNS 

X = R I + C0S< (SMAW+EC J) )/DPR) 

Y=R I *SINt ( SMAtf+Et J ) ) /DPR) 

XP = X 

Y P = Y *S QRT ( 1,-SINI**2) 

Z P = Y*S I NT 

TEMP=C0StOAPW/DPR) 

TEMC*SINtCAPW/DPR) 


,>234 


,235 
/236 
,*237 
,‘238 
*2 39 
*>24C 
42 41 
,‘242 
, 243 
*‘244 
V24S 
,>246 
V241 
,*248 


,(249 

,'25C 

t‘251 
,‘252 
,12 53 
_ ■'254 
/255 
425t 
4257 
4 258_ 
,'2 59 

42 6C_ 

42 61 

,262 

,‘263 

__ 4 2 64_ 
,2 65 
*‘266 
42b! 

,‘268 

,t269 
* 2 7 C 
/ 2 7 1 
_42 72_ 
r‘273 
4 2 74 
,>275 
42 76_ 
,'2 77 
*278 
,'2 79 

,‘28C 

V 2 8 1 
4282 
42 83 
_ 2 8 4 
,'285 
,'286 
,‘287 
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KILG0 PDAC 1 ’ 06/18/4 5 

EXTERNAL _F0RMV.LA NLMBER _ S0URCE__.SI^TERENT _ - _ INTERNAL F0RPLL A NUMEERt .$ i) 

X$=XP«TEMP-YP«T EHQ *288 

YS=XP*TEMQ4YP«TEMP *285 

ZS=ZP _ ___ *29C 

XL*XS/RI *291 

X_M= Y S/R I __ *292 _ 

XN=ZS/Ri t‘293 

C0SPP=XL«XLB4XM»XMB4XN«XNB . 4294 

404 XK=13.>2.5*( (RIP-36 C. )/24C*)-.5* ( IR IP-36C. ) /240. ) **2 > * 

1( (5._6rlC2SP_P)/6.'6) _ _ _ *295 

405 T EMP = l EXP ( . 0C 55*R I P )- i 19 )+ . 18 *296 

XMLTP* (i; + (_TEMPJ*( JJL.+C0SPP) /2« )t*3)/ _ ____ 

1(1.+ITEMP)«( ( l.+C0S(75./DPR) )/2. )**3) *297 

406 RH0=RH0*OCC» ( (SS/Sg)««XK) *XMLTP/9.81 *298 

G0 T 0 503 *299 

503 RH0 = RH0*9:ei . .. _ *3CC 

RH0XX-RH0 *201 

TERM=CDAR EA«RF g»lSCRm,f-2J»El«Ce3E (J) 

i+EI*Ei)/ll l.+EI*C0$E( *202 

STEP At J )»TERN«tl*4CgSE( J3 ) *203 

STEPP( J ) = TERM«li:-CKSE CJI ) *304 

J=J41 _ *205 

G0 T 0 1502 *206 

1500 INTA=Q. __ ... *307 

INTP=G • *208 

TERMl=»-8fe.:4E6«SQRT[KERTH) /6 .2e 31 858«S0RT ( AI ) *20 9 

L= JCNT-I *2 1C 

H^l ______ _ ... . *211 

1506 I F { L ) 1 504 *1 504 V 1505 *212 

_I505 L=L^2_ „ __ _ . *312 

INTA = INTA + ST£PA(M) + STEPA(M*2)4STERA(M41)«4. *214 

1NTP = INTP4STEPP (M)4$TEPP( V42)4STEPP (W41) «4. *215 

M=M42 *216 

G 0 Tg 1506 *217 

1504 C0NTINUE *218 

INTA=JNTA*CE 0.2 _ . _ _____ *219 

INTP*INTP4CE03 *22C 

AO0TP»T£RM1M INTA*tl.4EI)«*2-SINTA) *321 

PD0TP»TERM1*( INTP*(1.-EI)**2-SINT1») *222 

I F ( N AS S-BC I T I N ) 1601tl6CC*1601 __ _ „ *223 

1601 I F ( f* AS S ( 3 ) Il6C3f-16C2»i6C3 V 324 

1602 M T = P AS S ( 2 ) ___ *225 

G0 T 0 1700 *226 

1603 IF(TIME)16C2, 1602, 1604 *327 

1604 1=3 *228 

1607 IFtP T-t WASS( 1 4j ) )16C 5 ,1606*1 606 *325 

1606 MT = PASS(2)-"«ASS( n»TIf*E *33C 

G0 T 0 1700 *231 

1605 1=142 *232 

IF(NASSm-ENCIC)lt2tl *333 

2 MT = MASS( I-:l) *234 

G0T0 1700 _____ *235 

1 I FI 1-24)1607, 1607*7C01 *236 

1600 1=2 - _ __ „ _ *237 

1803 IF ( T IME-MASS ( I41J ) 1 eOO * 18C1 *1802 *238 

1802 1 = 142 _ *339 

tF(PASS(l)-ENCID>3,4,3 *24C 
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KILG3 PDAD 

BXTERMAL FORMULA NUMBER - SOURCE STATEMENT 


06/18/65 

INTERNAL E2RMLA 

NUHEERl 5 ) 

3 

IF C I-24JieC3, 18C3,7C01 



/241 

4 

MT=MASS t I“!2 ) 
GOTO 1700 



**342 

t'343 

1800 

1804 

1 F ( 1-2)1801, ie01,'18C4 
MT=M ASS ( 1 ) 



,344 

,‘245 

1801 

G0 T 0 1700 
MT=RASS( n 



*»246 

*.'347 

1700 

ADZT =AD2TP/MT 
PD0T=PD0TP/MT 



*'248 

^349 


SAC2TI=(AD0T+PDCT)/2. 

PD 0 AD»PD 0 T/ADeT 



/35C 

/351 


TIMED-MT/AC3TP 

REV0L=REVl+[ TIME-TIME 1)«1440./PD I 



*352 

^353 


RETURN ,1354 


7001 WRITE! 6 . 70C2) ,'355 .356 

CALL DUMR ,'357 

STOP V356 

7002 F0RMATI 1H020HTABLE VALUE EXCEEDECI 

END ,1355 



KILG0 PRINT! 06/18/65 

EXTERNAL FORMULA NUMBER - S0URCE ST ATEPE NT - INTERNAL FZRPULA NUHeERtS) 


SUBROUTINE PRINTT 

k E AL JJ.K ER TH, INTA, INTP. HASS,PT, INTER A , I NTER P , I NC ,NI 

DIMENSION CATE 13), XMONTH 112) 

0 IPEN SION FT£NB( 153) ,FTENH53),APtl53) 

D I PENSION C3RRECI11C) ,S0LAR(3C1) 

DIMENSION TN<6 > , INTERAI6) vTNl(6) .INTERPI6) , 

lC3SE(365),'El365),'CCPR1Pt25) , ARE A (4 5 ) ,'CN ( 45 ) , 

__ 2ATTACK1R5) .STEPA1 365 ) .S7EPPI365) .PASSI25) 

C 0 W M ON /ARCC/TEPPT,TEPK,PRESS,P0PP, 

lPSPg.RHO.'RHOSRB.VISC, VISCSL.KVISCwVS.G 

DATA DPR/57.2557795/, P I /3 . 1 41 59291 / , SNBCI /6HS 1 NE / 

1 . BC I TI M/6HT IMF / 

DATA A 1 D/fcHA /.PID/6HP / ,CE TI D/6HDE T A I L/ , 

1S H0I0/. 6HSHZRT / . 

DATA BND1 D/6HEND / 

C ZBRgN /CLK/AP 2 .PER1 .T I M S.'AE.SINI ,W0,F , J J.KERTH, 

1C0SI, JCNT i CDPR IP. AREA, ATTACK, CN, 

2MASS,ADOT.'PD3T,PD0AC,TIPEO 

3, C0SE,'E,DA02,'PER,T1PE1/HH,DE03 
_ A , C A P DM 1 _, CAP ID, S P A PI, A D T PI , AP2P1 , SP Aw, SWACM1 , SP AID ,C APM1 , CAP W 
5, C AP Z, 'DATE, XMONTH, FTENBiAP 

fe, INT £RA,INT ER P,DD,DAN0P,DAP0GE!1OI,CDA(5C) 

7, PRINT, CUT0FF ( 2 ) , AI , RP A I , S AC0T I 

8 . REV ZU . MT .'VPI.PDI 

9, PN I 6) ,ANI 6) , RE VI 

l ,C0RR E C.S0 LAR .ATM0S.FTEN.'DIURNL.XLAG.RHZXX.Sg.SA 

1*EI,RIPP»'R1PA,AMPR 

WRITE! 6. 151) AP0.PER1.AI , R P A I , ADZ T WPC0T j SAD0T I , 

lMf,CAPW,SMAW,CAPID,SMAID,'VPI,PDI ,RE V0L , T IHE , RHexX “ 

l.EI.RIPP.'RIPA ,'l ,2 

RETURN ,'A 

1 5JL_F 0RP AT ( 1H06HA E 1 5.8 . 3X^6HP El 5 . 8 ,3X . 6HAX I S E15.8.3X. 

16HRA0IUSE15.8 / ,' 1X,6FAO0T E 1 5 . 8 , 3X , 6HPDZT E15.8.3X, 

26H AXIPgTE15.8.3X,'6FPASS E15.8/.1X, 6HN0DE E15.8.3X, 

36HARGP El 5 . 8 , 3X,'6FCN0DE E 1 5. e , 3 X* 6HDARGP E15.8/.1X, 

46HVPERIGE15.3.3X,‘6FPERlZDE15.8,3X,'feH0RBIT E15.8.3X,' 

56HTIME E15.8/ylX,6PRH0 E 15 . 8 , 3X , 6HE I E15.8,3X, 

16HRIPERGE15«8,3X, I 6FRIPAPGE15»8/) 

END 
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KILG0 RK* 

EXTERNAL F0RMLLA NUMBER . - S0URCE STATEMENT 


06/16/65 

INTERNAL FORMULA NUH BERIS ) 


£ 


SUBR0UT INE RK 

REAL J J *KERTH T I NT A , I NTP , M A S S , M T , I N T ER A , I NTE R P , I NC , NI 
DIMENSION CATE13), XM0NTHU2) 

. DIMENSION FTENBf 153},FTEN1153>*APU531 
DIMENSION C0RRECI 11C ) , S0LAR ( 3C1) 

DIMENSION TN(6) , INTERAI6) yTNl (6) ,INTERP<6) , 
lC0SE(365) f *E( 365 )yCCPRIM(25) ,AREA(A5),CN(A5)» 

2ATTACKC 45) , S TEP A ( 36 5 > , STE PP ( 365 ) ,M ASS ( 2 5 ) 

C0MM0N / ARCC/T EM, PT, TEMK, PRESS, POMP, 

1PSP0,RH0,‘RH0SR0, VISC, VISCSL ,KVISC*VS,G 
DATA DPR/57.2957795/, P I / 3 . 1 A 1 5929 1 / , SNBC I /6HS I NE / 

1.BCITIM/6HTIME / 

DATA AID/6HA /,PID/6HP / ,0E T I D/6HDE T AI L/ , 

1SH0 ID/6HSH0RT / 

DATA BNDI D/6HEND / 

C0MM0N/CLK/AP0, ‘PERI, TIME, AEfSINI 1 V0,FyJJ,KERTH* f 
1C0SI, JCNT , CDPR IM t AREA, ATTACK,' CN, 

2M ASS, AD0T,<PD0T,PD0AC t TIMED 

3, O0SE,'E, DA 02, 'PER , T I ME 1 ,*HH , DE 03 

4, CAPDMl,CAPlD*SMAMl,ADTMl,AP0Ml,5MAk,SMACMl,SMAID,CAPMl,CAPW 
5;CAP0,*DATE , XM2NTH,FTENB, AP 

6, INTERA, INTERPyDD,DAN0M,DAP0GE(lOl ,CDAt 50 

7 , PR I NT , CUT0FFI2), A I , RP A I , S AD0T I 

8, REV0L,MT t ‘VPl,PCI 

9, PNC 6) , AN I 6) ,REV1 

l f C0RREC,S0LARjATM0SfFTENf'DIURNL, XL AG RH 0 XX , S 0 , S A 
1 , El » R I P P ,iR IPA, AMPR 
I F C AD0T)1,'1,2 

1 OA02=-! A3S( CA02) 

G0T03 

2 DA02=ABSCDA02 ) 

3 CONTINUE 

CK1=DA02*PC0AC 
PER1=PER+CK1 
AP0 = AP 0+DA02 
CK1X*DA02*T IMED 
T IME=T IME1+CK1X 
CALL PDAD ^ 

I F I A DOT ) A,'A, 5 

A DA02=-ABSI CA02 ) 

GOT 0 6 

5 DA02=ABSC DA02 ) 

6 CONTINUE 
CK2=DA02*PC0AC 
PERI =PER+CK2 
CK2X=DA32*T I MED 
TIME=TIME1+CK2X 
CALL PDAD 
IF(AD0T)7, , 7,8 

7 DA02=-jABSI CA02 ) 

GOT 09 

DA02=ABS( DA 0 2 ) 

C0NTINUE 
CK3^DA02*PC0AC 
PER1=GK34;CK3 + PER 


^1 

•<2 

,'3 

VA 

V 5 

t *6 

,*7 

V9 

,'1G 

vn 

V12 

V13 

VIA 

V15 

V 1 6 
V 1 7 

V 1 8 

V 1 9 
,'2G 
,>21 
,*22 
,23 
V2A 
V25 
V26 

V 27 
V28 
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KILG0 RlC 06/18/£* 

EXTERNAL FZRMLLA NUMBER - S0URCE ST ATERSKT - INTERNAL FgRRLLA NUMeE RlS) 



Mrzy-wrt'TL } <6 c 

CK3X=DA02*T IMED 

L=-l 

,'2C 


TIME=CK3X+CK3X+TIME1 

.‘21 


CALL PDAD 

•*22 


IF( AD3T)10.10tll 

*‘33 

10 

DA02=-(A3SICA02) 

42* 


G0T212 _ 

. 423 

11 

DA02=ABS( DA02 ) 

.13.6 

. _ 12 

C0NTINUE 

.... _ t‘27 


DELT = t ( DA02»PC0AD)+CK3+CK2+CK1+CK2+CK3) /3. 

.*38 


PER 1 =DELT + PER 

. *39 __ 


TIME = t t (DA02*TIMED)-*CK3X + CK2X + CK1X + CK2X 
1+CK3X) / 3.',0 + T IRE1 

,<40 


CALL POAD 

4*1 


I F ( A03T ) 13 » 1 3 » 1A 

4*2 

13 

DA02*-sABSt CA02) 

4*3 


G0T215 

4** 

14 

DA02=ABSl DA02 > 

.65 

15 

C0NTINUE 

/6 6 


ACTP1-AD0T 

4*1 


SMACM1*SMA id 

4* 8 


CAPCM1*CAP ID 

»*49 


SMAP1»SMAW 

41 0 


CAPP1-CAPW 

4l 1 


AP0P1-AP0 

422 


REV1=REV2L) 

41 3 


return 

»<54 


END 

.‘55 


i 
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KILG0 P0EAT °* 06/18/65 

EXTERNAL F0RMULA NUMBER - S0URCE STATEMENT - INTERNAL FORMULA NUMEERtSJ^ 


HG=GE0METR 1C ALTITLCE 

C4C6 


N = L ENGTH 0F TABLE 

C4C7 


HB= ALT 1 TUDE BASE 

C4Ce 


ATMOSPHERE DATA Le0KUP-GSK 

04C9 


RH0E =B ASE DENSITY 

C«12 


GIVEN HGVN *HB 1 1 ) Te HBIMjTMBU) T0 TMB l N ) , G LM B 1 1 ) T0 

0417 


GLMB ( N ) , RH0B ( 1 ) T0 RH0B IN ) 

04ie 


C2MPUTE T i'RH0 f P f .V 

0419 


R=GE0CENTR IC DISTANCE 0F THE F I E LO P0INT 

C42C 


CLS,CMS,CNS=DIRECTI0N COSINES 0F SUN 

C421 


CL»CM,»CN = DIRECTI0N C0SINES 0F FIEliD POINT 

C422 


AVERAGE LONGITUDINAL LAG 0F DIURNAL BULGE=.55 RADIANS 

0423 


SEPS,CEPS=SINE AND C0SINE 0F THE INCLINATI0N 0F THE ECLIPTIC 

0424 


PSIP=GE2CBNTRIC ANGLE BETWEEN DIURNAL 8ULGE AND FIELD PeiNT 

0425 

0426 


SUBR0UTINE P0EATlHG,RH0,D/Xf Y, Z,Pt 



DIMENSION HBt 18) ,'TMB 118) ,<GL MB ! 1 8 ) ,lRH0B U 8 ) 

0428 


IF(N— 12)50CflCj/500 


VI 

C0NTINUE 

043C 

V2 

N = 1 2 

C431 

*»3 

HB ( 1 )-0. 

0432 

V4 

HB(2)-36095.239 

0433 

V5 

HB( 3 J-8202C.997 

0434 

se 

HB{ 4)=»154199.475 

0435 

V7 

HB { 5)=173884.514 

C436 

,<e 

HB(fc)=»259186,352 

0437 

V 9 

HB(7I»295275.591 

0438 

,'10 

HB( 8)-344488. 189 

0439 

i'll ___ 

HBt 9 )=*524934.383 

04 4 C 

r 12 

HB ( 10) -557742.782 

04M 

,‘13 

HB ( 11) =656167.979 

0442 

V 1 4 

HB { 12) =2296587 J 93 

C443 

V15 

TMB ( 1) -518.69 

0444 

V 1 6 

TMB ( 2) -389.988 

0445 

,‘17 

T MB ( 3) =399.988 

0446 

,‘18 

T MB ( 4 ) -508.788 

C447 

VI 9 

TMB( 5) -508*788 

0448 

V 2 0 

TMB( 6 1=298.188 

0449 

*'21 

T MB ( 7) -298.188 

C45C 

,'2 2 

TMB( 8) =406.188 

045 1 

V 2 3 

TMB(9)*2386.108 

C4 5 2 

,'24 

TMB( 10 ) =2566. 188 

C4 53 

V 2 5 

TMB( 11) =2836.188 

04 5 4 

V 26 

T MB ( 12 ) =5986.188 

C 4 5 5 

*'27 

GLM6( 1 ) =-3.5661tE-3 

0456 

,’2 8 

GLMB I 2 ) =0.’ 

0457 

V29 

GLMB(3)=l.*646592E-3 

C458 

V 30 

GLME(4)=0* 

C459 

V3 1 

GLMB( 5 ) =-2.468 8 0E — 3 

C 4 6 C 

,’32 

GLMB ( 6 ) =0 • 

C4 £ 1 

V 3 3 

GLME(7 )=2.*19456E-3 

0462 

,'34 

GLMB ( 8 ) =1 »C9728E— 2 

C463 

,'2 5 

GLMB ( 9 ) = 5 .'4 8 64 E— 3 

0464 

V 3 6 

GLMB(10)=2.7432E-3 

0465 

V37 

GLMB ( 1 1 )=1 .92C24E— 3 

C466 

V 3 8 


O 
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KILG3 P0EAT 06/18/65 

EXTERNAL F0RMLIA NUMBER . S0URCE .ST ATE PENT. - INTERNAL F0RMIA NUMBERl $ ) 


GL Me(12? = l *_?_2_C 24 E-^2 

RH0BC1 )=2*3769E-3 

RH0e (_2)_=7.’C547E-4 

RH0B t 3 ) =7. 76 1 5E— 5- 

RH0BJ 4 ) -2 • 8_8 25E-6_ 

RH0B<5)=i;396AE-6 

RHPB ( 6 ) =4 .. 1 122E—8 

RH0e(7)=4.‘256CE-9 

RH0B(9)=2.’224 3E— 10 __ __ 

RH0E(9) = 1.'8477E-12 

RH0E(1O)-1.33 57E— 12 

RH0B(11)=6.1161E-12 

RH0Btl2)=4,466E-16 

10 PI=3. 14159265 

HGj=hG*320O._332 

T1=C.017203*D 

TENBE-2. 30258509 

SLAKB=.T1+0.0335*SIN ( T 1 )- 1 *41C 

S E PS = S I N ( *4052) 

C E P S =C 0 S L.4052) 

CL S = C_0 S (SLAMe) 

SSL AMB=SIN (SLAMB) 

CMS=SSL AMB*CEPS __ 

CNS=SSLAMB*SEPS 

1 HNM=HG/6076.1C03 

H=( 203 5 5531. *FG > / ( 2 C 8 5 553 1 .>HG ) 

100 00 111 I - 1 1 N 

IFCH-HBd) 1121,111,111 
_ _11J C0NT INUE_ 

2C0 T=TKBtN)+GLMBtN)*(F-HB(N) ) 

G0 T 0 50 

121 IF( 1-1 ) 123, 122., 123 
1 22_ I =2 __ 

123 IF(GLMB{ I-ini31,'141 f 131 

141 T-T^e{ 1-1) „ _ 

RH0=RH0BII-1)*EXP (-(H-HBl 1-1 ) )* 32 . 17404 85> ( 1716.4327* 

1TMB( i^i))) _ _ 

G 0 T 0 60 

1 3 T = TPBt I_-l) +GLPBI 1-1 )*IB-HBI 1-11 ) 

RH0 = RH0BtI-11 *EXP (-( i. + 32.* 174 0485/ (171 6.4 827*GLMB 
:._1( I-l)n *AL0G lT/IPB(I-im 
G 0 T 0 60 

50 RH0= R H0B(N )«EXP 1- ( 1 . +32 . 1740485 /1X71 6. 4627 «GLRB t M ) ) 
1*AL0G (T/TPBIN)) 1 
60 l V = SCRT (1^»J 1716^827*T) ) 

P=PF0*( 1716.4827*T) 

I Fl^llOOOj! 10QCi260 _ 

1000 RETURN 

. 26- P CN=Z/R . 

202 1F(FNM-76.')10C0^1QCC,25C 

250 CL = X/R _ _ _ .... 

CM=Y/R 

_ C lCLS-£L*CkS „ _ . . 

CMCPS^CM*QPS 

CNCN S a CN*C N S 

C0PSIP*(CLCL$ + CPCMS)*C0~S ( <*’55 1 + ( CK*CLS-CL*CP S) 


0467 

V29 

0468 

,•40 

0469 

.*41 

047C 

.'42 

C471 

_/43 _ 

C47 2 " 

' ,144 

C473 

,'4 5 

0474 

,’4 6 

0475 

»*47 

C476 

.'48 

C477 

,‘4 9 

0478 

,'60 

0479 

ll 1 

C48C 

,62 


,‘53 

C481~ 

,'54 

0482 

.'5 5 


.'66 


,'67 


,'68 


»■ 69 


,'6G 

0488 

,'6 1 

0489 ' 

,'6 2 

04 S C 

.’63 

0451 

,'64 

0492 

,'65 

049? 

,'66 

0454 

,'67 ,68 

0455' 

,'6 9 

0456 

, J 7G 

0457 

,'71 

0458 

,’7 2 

0455 

,'73 

0 5CC 

,'74 

05C2 

,'75 

C 5 C 2 

,*76 

C 5 C4_ __ 

>77 


,'78 

0 5 C 7 " 

,79 


,'80 


/ei 

05ll 

,'P2 

C 5 1 2 

,63 

0512 

V64 

C 5 1 4 

,'6 5 

C 5 1 7 

,'6 6 

0518 

V 6 7 

0515 

yes 

C52C 

,'6 9 

C 52 1 

,'50 

0522 

,’91 
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KILG3 P0EAT 

06/18/65 


EXTERNAL F0RMLLA NUMBER - S0URCE STATEMENT - INTERNAL F0RMLLA 

NUMEERCS ) 

1* S I N < .551+CN*CNS 


^ 2 

F1O=;1»5 + »8»C0S IPI*C/2C10.) 


,'53 

FB= * 85*F1 0 

0526 

V54 

IF(hNNi*108.)3C0 f 35C,3Cl 

0527 

V55 

301 IF (HNM-378.)350 t '4CC.4GC 

0528 

t* 56 

138 RH0=RH0*I 1 .-0.3*CN«*3«l 1.-C0S ( 2 .’•P I* I HNF-1 6 . ) /34. )) 



1«C0S t2.*PI*(C+9. 1/365.)) 


^57 

P=RF0M1716.4E27*n 

C521 

t«58 

V=SCRT { l.’4*( 1716.4827*T) ) 


,'59 

RETURN 

0533 

,‘1GC 

300 RH0=5«I6O6E-12» 176./ENM)**7»18M I 1C8.-HNV5/32.+FB* 

0534 


11 IHNM-:76..) /32.)**(4. 0/3.0) )*l 1.+ (FNV-76. )/153.*( ( 1.+C0PSIPI /2.) 

0535 


2**3) 

0526 

,'101 

P=RF0M 1716.4627*T) 

C521 

V 102 

V=SCRT (l.:4*{1716.4e27*T)) 


1 02 

RETURN 

0525 

t 1G4 

350 RH0= FB * EXP (TENBE*(-15.730-.OC368*HNM+6.363*EXP (-.0048 



l*HNRn )*11.+.19*IEXP I0.0102*HNM)-Il .9 ) * M 1 . + C0PS I P) /2 . ) **3 ) 


,'105 

P=RF0*( 1716.4827*T) 

C542 

,aefc 

V=SCRT 1 1 -.‘A* l 1716.4827*T) ) 


* 1G7 

RETURN 

C544 

y 1 0 6 - 

400 RH0=O»OO5O4*F1Q/IHNR)**5* ( C 1 1 . +'C 0> S I P ) / 2 . ) • « 3* ( 1 . -6 . E+6 

0545 


l/HI\R**3)*6.E + 6/HNM«*3) 

C 5 4 <5 

,'105 

P = RF0M 1716. 482 7 *T) 

0547 

,(11C 

V = S C RT* ( 1 .4* ( 1716. 482 7* T) ) 


,*111 

RETURN 

0545 

,'112 

END 

055C 

V 113 



KILG0 SMATMS 

EXTERNAL, _F0R_MLLA_ NUHBEE_ - SOURCE. STATEMENT 


06/ 16/ 6 £ 

INTERNAL FORMULA NUMBER IS) _ 


SUBR0UT INE SMA TMS l X , Y, l , SS yT , RH0 »HKM ) 

QJ_MENS J 0N RH0S_JL5_3A — - - 

s=ss 

IFI I FLA G-JL) 600^300 »60C .... ... - 

600 CONTINUE 

Pl*3. 1415927 

P I2-2**PI 

PI4 = 4.> P1 _ . _ _ — 

C0NV*92O.‘ 

RH0 S-O. _ — - — - 

RH0S 1 2 ) =0» 

RHflSm=0.‘C 

RH0S(4)=1.'225E— 3 

RH0S ( 5 ) =0. „ _ 

RH2S ( 6 ) = 1«!225E— 3 

O09C 1*7^49*2 

90 RH0S(I)=RH2S( 1-23+5. 

RH0S t 8 ) -7 .’3643E-4 

RH0StlO)=*A.13 5 IE— A 

RH0S(12)=1 . 9475E— 4 

RH0SU4) = 8.8910E-5 

RH0S(16) = 4._OOfi4E-5 

RH0S(18)=1.841GE-5 

RH0S(2O)=8;4634E-fc 

RH0S(22)=3.9957E-6 

RH0SI'24)»1. 96636-6 

RK0SI 26) =» 1 • 0269E-6 

RH0S ( 28)^5.60756—7 _ 

_ RH0S( 30)*3.0592E-7 

RH0 S ( 32) =» 1 . 6665E-7 - — 

RH0 S ( 34) =»8 . 753 5E-8 

RH0S ( 36)^4. 33 5E-8 - 

RH0S ( 38)®! . 999E-8 

RH0S t 40)=7.95 5Er9 __ _ - 

RH0 S ( 42)^3. 170E-9 

RH0S( 44) a 1 . 26 5E-9 

RH0S ( 46)^5. 070E-1C 

RH0S(4 8) = 2 .O7CE-XO - - ~ 

" ‘ RH0S(5O)*8.75CE-U 

RH0SI 5 1 ) 3 1 16 . C 

RH0S(52)=3.253E-11 

RH0$ I 53) = 1 . E22 - •- 

IFLAG-l 

300 R =SCRT ( X<*«2+V*»2+2« + 2j — 

CL-X/R 

CM-V/R _ — 

CN=2/R 

IF (HKM) 2C0 t 2Q0, ( 2Cl 

200 RH0 *2.37656-3 

G 0 T0 10 00 _ _ . 

201 IF ( FKM-116 .)311*312,312 

3U CALL _TBLtHKM, RH0S) _ . _ . 

IF C HK‘M-30 • ) 110,<11C,111 

11 1 IF ( HKM-90 . ) 112»'112tllC 

112 C=l.-0. 3*CN*"*3VTI.~C0S f PI2* UHKM-»3C. ) /60. )) >*C0S l P12M tT-36194. ) 


/I 

/2 __ 

V2 

sL^L 

41 

_ 

4l 

. i*8 

,‘S 

410 

Vll 

yl2 „ 
V13 

V14 .. 

y 15 ,16 

m 

yis 

/19 

y2G 

y2l 

,'22 

,'23 

,24 
y25 , 

,•26 

y27 

,•28 

,'29 

430 
y 3 1 
,‘32 
,'33 
y34 

t>35 

y36 

,'37 

y28 

^39 __ . 

y40 

,»41 

,'42 
__ t'42 
y44 
.,'45 
y4 6 
,'47 
^48 
,<49_ 

‘ ,’5G 

^51 

y52 

j*53 
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KILG0 SM ATMS 06/18/65 

EXTERNAL F0RMLLA NUMBER - S0URCE STATEMENT - INTERNAL FeRMULA 

NUMBERtS) 

1/365.25)) 

**54 

RH0=RH0S*C 

**55 

G0 T 0 1000 

.*56 

110 RH0=RH0S 

t*57 

GO T 0 1000 

•*58 

312 C0NTINUE 

t*59 

HKM=HKM+4*C 

/tc 

IF (S) 100, 10C, 101 

100 FBAR=135.+75.*C0S I P I ?* ( T-36340. UAC90. ) +1 5 . »C 0S ( P I A* I T-3603C. ) 

/6 1 

1/A090*) 

t*62 

TC0N=LT-38CA7.)/365.25 

**63 

GT=.025*C3S (PI2»TC0N)-.O6»C2S (P14*TC2N) 

t’64 

S=I50.:+.8«tFBAR)»EXP (GT) 

*<6 5 

101 CALL HPCICL,CM,CN,FKM,S,T,RH0HC) 

.*66 

RH0=RH0HCaC0NV 

.'67 

1000 RETURN 

.*68 

END 

**69 


KILG0 TBL 06/1B/65 

EXTERNAL F0RMLLA NUMBER - S0URCE STATEMENT - INTERNAL FBRMLL A NUMBERLS) 


SUBR0OTINE TBL (HKM.RF0S) 
DIMENSIZN RH0S11) 


DO 10 I =5 *'5 1 1 2 

t*l 



I F ( HKM-RH0 S t I ) ) 20» 2C* 10 

n 


10 

CONTINUE 

t* 2 

.4 

20 

RH0S = R HOS l 1-1 )+(RH0S( I + 1 ) -RH0 S (I -1 ) ) * ( HKF 




1-RH0SI 1-2) J/IRH0SU I-RH0SI 1-2) ) 

*5 


25 

RETURN 

46 


30 

RH0S=»RH0St 1+1) 

*•7 



G3 T0 25 

*<8 



END 

.<9 



KILG0 HPC 

6 X T E R N A L _ FJ? R M L L4_ N U M B E R 


06/18/65 

S0URCE STATEMENT. __ j- I NT E RNAL _ F £ RMLL A NUMEERISJ. 


SUBR0UT INB HPCICL,CM,CN,HKM,S,T,RH0A) 

_ DIMENSION SlJ35)yS2J35_) ,S3J35J_,S4135) ,S5I351 ,SS1(35_L*SS2<_35 »j, _ 

1SS3I35I.SS 4(35), SS 5(35) ,0 1 3 .3 1 *P (3 ) ,H ( 35 ) . R ( 3,3 ) , PP( 3 1 ,C 1 5 1 

__ DATA. ( SIC! )»J=lj35 _ _ . 

1-2 A. 06 5, -2 5. 8? 7, -2 7. 3 10, -2 8. 483, -2 9. 53 0,-31 .299,-32.772, 

1-34. 068.-35. 267.-36.385,-37.447,-38.396,-39.194,-39.817, 

1-40. 28 9, -4C. 6 6 0, -40. 973 i -4 1.2 5 7, -4 1.5 2 4, -41 .782,-42.033, 

1-4?. 28 0 .-42. 523 .-4 2. 762. -42 .9 96. -4 3. 5 66. -44. 109,- 44.6 22, _ 

1—4®. 101, —45. 54 1,-45. 938, —46. 253, -4 6. 604 ,-46 .875 , -47 . 109/ ) 

DATA_tS.2( I. ) , I = 1 _.3 5) Z 

1-24. 06 5, -2 5. 9C4, -27. 2 2 8, -2 8. 2 e4, -29. 197, -3 0.75 8, -32. 072, 

1-33. 21 8. -34. 260. -35.235. -36. 161. -3 7. 04 4 , -37. 87 1 ,-38. 620, 

1-39. 26 8, - 3 9. 8 C 4, -4C. 2 3 2, -4 0.5 7 7, -4 0.8 64, -41. 114,-41.344, 

1-41.560. — 41. 768>— 41.970. — 42.167.-42 .6^8 .-43. Ill .-4 3.557, 

1-43.98 5, -44. 35 5,-44 .784,-4 5. 152 ►-4 5.496,-45. 316,-46. 111/ 

DATA_ tS3tn. 1 = 1.35)/ ... 

1-24.065,-25.930,-27.137,-28.046,-28.814,-30.120,-31.232, 

1-32. 21 3, -3 3 .054 ,-33.90 3, -34 .670, -3 5. 400 ,-36.102,-36.777, 

1-37. 42 4, -3 8. 03 6, -3e. 607,-39.125,-39.584,-39.981,-40.317, 

_ 1-40. 601,-40. 844, -41. 056i-41. 246, -41. 664, -42. 041,-42 . 397 t_ __ 

1-42 . 738,-43. 069,-43 .389,-43.698,-43.997 ,-44 .286,-44.564/ 

_ DATA_( S4U) ,J=_1,351/_L _ __ __ 

1-24. 06 5,-25.954, -27.077,-27. 8 89, -28. 5 5 8, -2 9. 681, -30.643, 

1-31. 49 6. -3 2. 270, -32. 98 3, -33. 646, -34. 272. -34. 869, -35. 443, 

1-35.998,-36.536,-37.056,-37.558,-38.039,-38.496,-38.924, 

1-39. 320, -35.680 ,-40. 002,-40. 287, -40. 856, -4 1.282, -4 1 .625, _ __ 

1-4 1.927, -42. 20 7, -42. 473, -42. 7 29, -4 2. 977, -43. 217, -43. 451/ 

OAT A I S5( 1 ) , 1 = 1-35)/ _ _ 

1-24 • 065,-25 .976, — 27.036,-27.783,-28.385 ,-29.377,-30.221, 

1-30.98 0,-31.6 6 9,-32.304,-32.896,-33.554,-33.984,-34.490, 

1-34.976,-35.446,-35.903,-36.347,-36.778,-37.197,-37.604, 

_ 1-37.997.-38.375 .-38 .736.-39.077,-39.837,-50.443,-40.912, 

1-41 . 27 8 ,-4 1 • 577,-41 • 835 ,-42 • 069 , -42 • 287 , -42 • 495 , -42 • 696/ 

DATA tSSK 1). I-l.<35 )/ _ __ 

1-24. 06 5, -2~5. 8 52, -27. 23 8 i-2 8 .339, -29.227 ,-30. 677 ,-31 . 866 , 

1-32.88 8,-33.305,-34.657,-35.565,-36.233 ,-36.963,-37.658, 

1-38.307,-38.859,-35.421,-39.869,-40.242,-40.553,-40.816, 

1-41. 043_,-41. 247^41. 435i-41.j512.-42j.027, -42. 420,-42. 797, _ _ 

1-43. 162, -4~3. 5 14 , -43. 9 54, -44. 18 2, -4 4. 497, -44. 799, -4 5. 087/ 

. DATA J SS2t IJ Ll»lii351/ _ __ 

1-24.065,-25.867,-27.155,-28. 153,-28.950,-30. 2i 4, -3 1.2 50, 

1-32. 159,-32. 953,-33 .685 1-34. 370, -35.022 ,-35.65 8,-36.252, 

1-36.836,-37.358,-37.935,-38.443,-38.915,-39.348,-39.735, 

_ j-40 . 07 5,-50. 37 1,-5 0.626,-4 0 . 848 ,^4Jj300_t-_4L- 668 jj-41 .J?96_, 

1-4 2. 301,-42.554, -42.877, -43. 150, -4 3.416, -43. 673, -43. 922/ 

DAT A { SS 31 1 ) , I ■ 1 ,' 3 5 ) / 

1-24.065,-25.853,-27.067,-27.948,-28.653 ,-29.731 ,-30.599, 

1-3 1.35 2. -3 2. 027 ,-32 .656,-3 3. 222, -33. 765, -35. 279,-34.773, 

1-35.248,-35.708,-36.153,-36.586,-37.007,-37.415,-37.811, 

1-38 .193. -38. 5 5 8,- 38. 907.-39. 235,-39.9 59,-50. 536, -50. 983, 

1—4 1.334, —4 1.62 3, —4 1.874, -42. 103,-42. 3 17, -42. 522, -42. 719/ 

DATA ( S S5( 1) . I *1 .'35 ) / _ _ 

1-24.065,-25.921,-27.012,-27.313,-28.451,-29.424,-30.184, 

1-30.841,-31.5 31,-31.971,-32.5 74,-3 2.95 5 ,-33.392,-33.817, 

1-34. 22 3, -3 4. 6 14, -34. 992 i- 3 5. 3 5 8, -3 5. 7 15,-36. 062, -36. 402, _ 
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KILG0 HPC 

EXTERNAL F0RMLLA NUMBER - S0URCE STATEMENT 

1-36.733,-27.057,-37.373,-27.681,-26.414,-39.088,-39.689, 
1-40.206,-40.645,-41.004,-41.300,-41.548,-41.762,-41.952/ 
DATA l SS5 1 I ) , I *1 ,‘35 ) / 

1-24. 06 5, -2 5. 94 7 ,.-26. 973, -27. 721, -2 8. 309, -29. 2 11, -29. 898, 
1-30. 48 8,-2 1.01 6 ,.-31.500, -31 ._950, -22. 372 ,-32.772, -33. 151, 
1-33.513,-33.859,-34.192,-34.514,-34.826,-35.128,-35.423, 
1-35.710,-35.950,.— 36.265, — 36.534,-37.182,-37.79 8,-38.379, 
1-38.923,— 39.425,— 35.880,-40.265, -4 0.639 ,-40 .945 ,—41 .206/ 
PARF(X, Y,'Z ) = X4DT* t Y« (CT2-DT)/0T1+2*(DT1 + CT)/CT2)/(0T1 + DT2) 
I F 1 IFbAG-1 )601/600,601 
601 CONTINUE 
H( 1 )*120. 

00 1400 1-1,34 

1 F ( 1-4)1030, 1030,aC31 

1030 H ( I + D-HtI ) + 2C • 

GO T 0 1400 

1031 IF( 1-24)1032, 1032,1033 

1032 H ( I + l)=HtI )+4C.' 

G0 T 0 1400 

1033 H ( 141). H(I )41C0. 

1400 C0NTINUE 

PI=3. 1415927 
IFLAG-1 
600 C0NTINUE 

CAPM=J0172C3*{ T— 362C3 • ) 

SL=CAPM4*0335*SIN lCAPM)-i:41 
CL S = C0 S tSL) 

SINSL-SIN ISL) 

CMS=.9175*$INSL 
CNS=.3977*S INSL 
400 03 20 1=1, '35 
DT = M I J-HKM 
IF(CT) 20,121*21 

20 CONTINUE 
G0 T 0 9001 

21 LPT = I 

I F ( 1-35)1002, 5001, 5C01 
9001 RH0 A =0.0 

G0 T 0 3000 
1002 C0NTINUE 

DTl.HILPT)-H(LPT-l) 

DT2 = Hl LPT 4. 1 )-F(LPT) 

DT=-DT 

I F t S-150.1) 30, 21*31 
30 00 40 1=1, *3 
L P = L P7-241 

oti^n.siiLP) 

0(2, I)*S2tLP) 

40 Qt3, I)=S3<LP) _ 

I G0 = 1 

42 D0 41 I = 1 ,» 3 
Ql = cn,2) 

Q2 = C( I,2)-:0( 1,1) __ 

Q? = Ct I,3)-!CC I ,2) 

41 P( I )=PARF! C1,C2,Q3) _ _ 

G0 T 0 ( 5000,5001), IG0 


06/18/65 

INTERNAL F0RNLLA NUMBERLSI 


/I 
, <2 
4 3 
/4 


t'5 

t* 6 

/7 

/e 

,19 

/ie 


/n 
,'12 
,'14 
/ 1 5 
/ 1 6 
,'17 

. »13 

Y1C 

,'19 

/ 2C 
/21 
,'22 
,'2 3 

- -- 

/ 24 
/2 5 
,'26 
,•2 8 
,’29 
/ 20 

,27 

' t' 2 1 


,'22 


/ 2 3 


,'24 


,'25 


,‘26 


/ 2 7 


,'38 


,'29 


,’4G 


/ 4 1 


,'42 

,43 

,<4 4 


,‘4 5 


?*4 6 


/4 7 


,'4 8 


/4 9 

,50 
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K I LG0 HPC 06/18/65 

BXTERNAL_.F0RMtLA NUMBER; — SOURCE STATEMENT . INTERNAL F0RPLL A NUMeERlS) 


5000 D0 240 1*1,3 __ __ ^52 

IP=LPT-2*1 *53" 

R 1 1 ) *SS 1J L PJ *54 _ 

R<2, n*SS2ILP) i<55 

240 ft ( 3, I ) *SS3 (LP 1 V56 *57_ 

5001 D0 241 1 = 1,3 /58 

ft 1 = R I 1,2) ,'59 

R2-ft(It23-iRI I * 1 > t>6C 

R3«R( 1,3 )->RI 1*2) V61_ _ _ 

241 PP(I )»PARF1R1,R2,'R3) ,>6 2 ,63 

G0 T0 1 43,*44),1G0 __ «?64 

43 DT = S-l66j t'65 

0T1=30. _y66 

DT2=50 • ,<67 

45 R HZN=EXP I P_ARFIPJ2),P(2)-Pll) ,P(3)-P_(2> >)_ _ __ _ ,!68_ 

RH0X = EXP (PARFtPP (2) ,PF12)-PP 11) ,PP(3)-PP(2> ) ) ,'69 

G 2 _T0 410 _ _ . _______ ,'70 

31 00 140 1*1,3 ?i71 

LP=LPT-2+l _ t^72 

Qllt !)*S3CLP) ,73 

0 1 2 »_I )j“_S4 ( L_P ) __ V 74 

140 Qt3,I)*S5tLP) ^75 ,76 

IG0 = 2_ ___ __ ... ;V.77_ 

00 340 1*1,3 ,76 

L P = L PT — 2+ 1 y79 

R( 1 , I ) =SS3 1 LP ) ,'80 

R(2. II = SS4 1L P ) _ /El 

340 R ( 3 , I) *SS5 1 L P ) ,'62 ,83 

G0 TO 42 V84 

44 DT = S-2‘0-0* ,'85 

DT1*50: ■ j !_86 

DT2 = 50 • V87 

G0 T 0 45 ___ ^e_8 

410 SIG=;(S-160.)/9O. ,'89 

SIG2*SlG*a2 . _ _ t'9G . _ . 

PHIN = 591^+32.5*SIG-8.5«SIG2 ,'91 

PHIP=96.+?C*»S1G+1C.*SIG2 __,'92 

HN=1115.+5C7.5*SIG+52.5*SIG2 ,'9 3 

D E L 1- = 5 9 0/+3 5 5 * * S I_G_+ 35. * * S I G 2 ____ . ,'9.4 

HS=325.+27.*SI G-5 *« S I G2 ,9 5 

ZETA=t (HKM-HN)/DELFJ**2 _ _ _ _ ,96 

FZ = -'*G6+»03*ZETA+1.C6*EXP l-3.7*Z6TA) ,*97 

PHI=PI«{PHIN—PHIM*FZ— 4*47+ *01174 *HKK+EXP I-.04MH KM-HS) ) )/12CC* V 9 8 

IFt PHl-2*)420, 421,421 ,99 

421 PH I = 2 ► . _ . ^10C 

G0 T 0 430 ,'1G1 

420 IF (PHI -1>)42 5,430,430 . „ ,’102 

425 P H I = 1 «! ,'102 

430 E p S I =AL 0G U. + SQRT (RHEX/RH0N) ) /AL0G (2./U.+C0S (P H I))) ^104 

G Avy A* P I * I 18.5+30.*EXP 1-.GC567* (WKK-20C . > +’E XP (-.01455* (I-KK-20G. 

1 ))) -M 1 8*5+21. 5 + EXP (-.031 5* (HKM-2C0.n ) «SIG+4. » ( 1 *-S IG2 ) )/180. V1G5 __ 

IF( GAMMA-5. )320,32C, 2003 V1C6 

2003 G A W A * 5 * _ __ V 1 07 

320 CP$IPLI=<CL*CLS+CM*CPS)*C0S ( GAMM AI+ (C M*CLS-C L*OS ) *S I N (GAMPAJ+CN* 

icns ,'ioe 

1000 RH0A*RH0N+ tRH0X-RH0N)*Ul. + CPSIPL)/2. )*«EPSI ^1CS 
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non 


KILGO HPC 

* EXTERNAL FORMULA NUM8BR 


SOURCE STATEMENT 


1001 BETA»TAN2PI(CLrfCM)-TAN2PIlCLSfCMSl-'180**GAMMA/P| 
2002 IF ( BETA ) 2000*2001. 2001 
2000 BETA»BETA*360. 

GO TO 2002 
_20Gl_ CONTINUE 

700 AMP»HKM/9000.4U9l4iAA*SlG4.38*$lG2)«eXP l-(Z.-H¥ 

U»*2> 

710 AMPS*.:2454„0425«S!G-.C625*SIG2 

U«AM_P^tr-L08*EXP t-UBETA-250. )/55.’J **2) 4AMPS«EXP 
134U*V2>)4AMP*A.E-6«BETA 
FACT»1 ; 4tl .-CN**2 ) »t 
RH0A*RHOA%FACT 
3000 RETURN 
ENO 


KILG0 TANZPI 

external formula number 


SOURCE STATEMENT 


FUNCTION 7 AN2P 1 ( X *Y ) 
TAN2P1-ARCTAN(Y/X) 
TANZPI EQUAL OR 
TAN2PI„ j EQUAL OR 
RADCEG»57 *2957795 
IFC Y 11* 2/3 
lF(X)5i4,»6 
TAN2P1* 1-0E43C 
GO TO 20 
T AN2P1 » 180 *0 
GO TO 20 
TAN2P7*0.’0 
GO TO 20 
IF(X)Ti8 ,«9 


LESS THAN 2Pf 
GREATER. THAN J£R0 


7 TAN2PI-1B0.4RAD0EG*ATAN(Y/X) 
GO TO 20 

8 T AN2PI *270 *0 
£0_T0 20 

9 TAN2PI-360.4RaD0EG«ATAN(Y/X) 
G O TO 20 


3 IF(X )7« 10/1 1 

10 T AN2P 1 »90«TC 
GO TO 20 

11 TA_N2_P1*RA0CEG«ATAN(Y/XI 
20 RETURN 

END _ 


06/18/65 
INTERNAL FORMULA 

NUMEERCS) 

;nc 


/111 


/1 12 


/ 113 


/114 

5.4L43.«SIG1 



/1 15 


/116 

ETA-135.)/ 



/117 


.me 


/1 19 


/12C 

0121 


— 

-- 

06/ 18/6 5 


[ NT E Rf{AL F OR MLJL_A_ 

JCUMEERiSJ 

G9 85 


0966 


C987 


C968 

/I 

C989 

42 

C99C 

*2 

0991 

/A 

C992 

W5 

0993 


C994 

4l 

C<JSi 

4* 

C996 

4 9 

C997 

410 


4 U 

C999 

4\2 

C9991 

4 13 

0999e 

i(1A 


41 5 

C999C 

/ 1 6 

09996 

/ 17 

0999F 

/18 

09991 

/ 19 


/20 

0999F 

W21 

0999 J 

422 
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